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
|
||||
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) %>%
|
||||
|
|
Loading…
Reference in New Issue