|
|
|
@@ -28,7 +28,6 @@ server <- function(input, output, session) |
|
|
|
|
|
|
|
imdb %>% |
|
|
|
filter(id == show_id) %>% |
|
|
|
collect %>% |
|
|
|
mutate_at(vars(season, episode, averageRating, numVotes), as.numeric) %>% |
|
|
|
by(.$season, function(x){ |
|
|
|
fit <- lm(averageRating ~ episode, data = x) |
|
|
|
|
