From: aaronshaw Date: Wed, 24 Apr 2019 14:52:14 +0000 (-0500) Subject: typo fix for ps3 worked solution X-Git-Url: https://code.communitydata.science/stats_class_2019.git/commitdiff_plain/516f336f4e60f92b34f95619161483eee77e3411?ds=sidebyside typo fix for ps3 worked solution --- diff --git a/problem_sets/week_03/ps3-worked_solution.Rmd b/problem_sets/week_03/ps3-worked_solution.Rmd index 0004b6a..35756c3 100644 --- a/problem_sets/week_03/ps3-worked_solution.Rmd +++ b/problem_sets/week_03/ps3-worked_solution.Rmd @@ -29,7 +29,7 @@ Now, I'll go ahead and load the CSV file into R. As with last week, I'll do this ### list.files("data/week_03") # just take a look around ### w3.data <- read.csv("data/week_03/group_01.csv") -w3.data <- read.csv(url("https://communitydata.cc/~ads/teaching/2019/stats/data/week_03/group_02.csv")) +w3.dtata <- read.csv(url("https://communitydata.cc/~ads/teaching/2019/stats/data/week_03/group_02.csv")) ``` ### PC3. Get to know your data! @@ -143,7 +143,7 @@ Inspecting the first few values returned by `head()` gave you a clue. Rounded to I can create a table comparing the sorted rounded values to check this. ```{r} -table(sort(round(w2.data, 6)) == sort(round(w3.data$x, 6))) +table(round(w2.data,6) == round(w3.data$x,6)) ``` Can you explain what each piece of that last line of code is doing? @@ -200,7 +200,7 @@ head(w3.data) lapply(w3.data, summary) ### Run this line again to assign the new dataframe to p -p <- ggplot(w3.data, aes(x=x, y=y)) +p <- ggplot(data=w3.data, mapping=aes(x=x, y=y)) p + geom_point(aes(color=j, size=l, shape=k)) ``` diff --git a/problem_sets/week_03/ps3-worked_solution.html b/problem_sets/week_03/ps3-worked_solution.html index b67d962..a909ded 100644 --- a/problem_sets/week_03/ps3-worked_solution.html +++ b/problem_sets/week_03/ps3-worked_solution.html @@ -464,7 +464,7 @@ w2.data <- log1p(w2.data)
## [1] 9.643215 2.158358 1.396595 0.192623 1.752234 0.170634

Inspecting the first few values returned by head() gave you a clue. Rounded to six decimal places, the vectors match!

I can create a table comparing the sorted rounded values to check this.

-
table(sort(round(w2.data, 6)) == sort(round(w3.data$x, 6)))
+
table(round(w2.data,6) == round(w3.data$x,6))
## 
 ## TRUE 
 ##   95
@@ -546,7 +546,7 @@ head(w3.data) ## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's ## -4.42 3.19 7.81 9.96 14.61 33.14 5
### Run this line again to assign the new dataframe to p
-p <- ggplot(w3.data, aes(x=x, y=y))
+p <- ggplot(data=w3.data, mapping=aes(x=x, y=y))
 
 p + geom_point(aes(color=j, size=l, shape=k))
## Warning: Using size for a discrete variable is not advised.