+### Save your Work
+
+```
+savehistory("/mnt/data/test_commands.txt")
+```
+
### Pie Receipt
```rstudio
library("dplyr") ## load
-TimeSum <- (TimeTracking %>% group_by(Category) %>% summarize(Duration = sum(Duration)))
-pie(TimeSum$Duration, TimeSum$Category
+TimeSum <- (TimeTracking %>% group_by(Category) %>% summarize(Duration = sum(Duration))))
+pie(TimeSum$Duration, TimeSum$Category)
```
\ No newline at end of file