diff --git a/bikes_analysis.R b/bikes_analysis.R index 3473e03..79e4ba8 100644 --- a/bikes_analysis.R +++ b/bikes_analysis.R @@ -63,6 +63,7 @@ test <- apply_transformations(test) ## Exploratory Analysis ####################### + train.count.by.date_hour <- aggregate(datetime ~ date, data=train, FUN=length) ggplot() + geom_point(aes(x=date, y=datetime), data=train.count.by.date_hour)+ @@ -149,9 +150,15 @@ kruskal.test(count ~ temp, data=train) # there are significant differences across humidity kruskal.test(count ~ humidity, data=train) - +# there are significant differences across windspeed kruskal.test(count ~ windspeed, data=train) +# there are significant differences across days from start +kruskal.test(count ~ days.from.start, data=train) + + + +