Övervakad inlärning i R: Regression
Nina Zumel and John Mount
Win-Vector, LCC
Flera olika beslutsträd kombineras och medelvärdesbildas
cnt ~ hr + holiday + workingday +
weathersit + temp + atemp + hum + windspeed

model <- ranger(fmla, bikesJan,
num.trees = 500,
respect.unordered.factors = "order")
formula, datanum.trees (standard 500) – använd minst 200mtry – antal variabler att testa vid varje nodrespect.unordered.factors – rekommenderas sättas till "order"model
Ranger result
...
OOB prediction error (MSE): 3103.623
R squared (OOB): 0.7837386
Random forest-algoritmen returnerar uppskattningar av prestanda utanför stickprovet.
bikesFeb$pred <- predict(model, bikesFeb)$predictions
Indata till predict():
Prediktionerna nås via elementet predictions.
Beräkna RMSE:
bikesFeb %>%
mutate(residual = cnt - pred) %>%
summarize(rmse = sqrt(mean(residual^2)))
rmse
1 67.15169
| Modell | RMSE |
|---|---|
| Quasipoisson | 69,3 |
| Random forests | 67,15 |


Övervakad inlärning i R: Regression