diff --git a/shiny/003-play-golf/app.R b/shiny/003-play-golf/app.R index 3715ade..e0ffb42 100644 --- a/shiny/003-play-golf/app.R +++ b/shiny/003-play-golf/app.R @@ -13,7 +13,7 @@ library(RCurl) library(randomForest) # Read data -weather <- read.csv(text = getURL("https://raw.githubusercontent.com/dataprofessor/data/master/weather-weka.csv") ) +weather <- read.csv("https://raw.githubusercontent.com/dataprofessor/data/master/weather-weka.csv", stringsAsFactors = T) # Build model model <- randomForest(play ~ ., data = weather, ntree = 500, mtry = 4, importance = TRUE)