Added comment header to R script, fixed typo.
This commit is contained in:
parent
96454bc3c6
commit
359576c256
|
@ -1,3 +1,10 @@
|
||||||
|
###############################################
|
||||||
|
## MovieLens Final Model R script
|
||||||
|
## Kaylee Robert Tejeda
|
||||||
|
## Assumes that data has already been prepared
|
||||||
|
## as per instructions.
|
||||||
|
###############################################
|
||||||
|
|
||||||
# Calculate 10th percentile of movieId by rating
|
# Calculate 10th percentile of movieId by rating
|
||||||
movieId_cutoff <-
|
movieId_cutoff <-
|
||||||
edx %>%
|
edx %>%
|
||||||
|
@ -24,7 +31,7 @@ paste("Users below the 10th percentile with fewer than",
|
||||||
"ratings will be ignored.",
|
"ratings will be ignored.",
|
||||||
sep=" ")
|
sep=" ")
|
||||||
|
|
||||||
# Remove any movie below the 10th percentile in terms of ratins
|
# Remove any movie below the 10th percentile in terms of ratings
|
||||||
edx2 <-
|
edx2 <-
|
||||||
edx %>%
|
edx %>%
|
||||||
group_by(movieId) %>%
|
group_by(movieId) %>%
|
||||||
|
|
Loading…
Reference in New Issue