Added comment header to R script, fixed typo.

This commit is contained in:
shelldweller 2021-09-13 21:23:40 -06:00
parent 96454bc3c6
commit 359576c256
1 changed files with 8 additions and 1 deletions

View File

@ -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
movieId_cutoff <-
edx %>%
@ -24,7 +31,7 @@ paste("Users below the 10th percentile with fewer than",
"ratings will be ignored.",
sep=" ")
# Remove any movie below the 10th percentile in terms of ratins
# Remove any movie below the 10th percentile in terms of ratings
edx2 <-
edx %>%
group_by(movieId) %>%