From 359576c25647c7f029710f3bec78e9c33bdcafd7 Mon Sep 17 00:00:00 2001
From: shelldweller <shelldweller@beauxbead.com>
Date: Mon, 13 Sep 2021 21:23:40 -0600
Subject: [PATCH] Added comment header to R script, fixed typo.

---
 movielens-recommendation-system.R | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/movielens-recommendation-system.R b/movielens-recommendation-system.R
index c70d891..83b376c 100644
--- a/movielens-recommendation-system.R
+++ b/movielens-recommendation-system.R
@@ -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) %>%