R による Supervised Learning:回帰
Nina Zumel and John Mount
Win-Vector LLC
$$ RMSE = \sqrt{\overline{(y-pred)^2}} $$
ここで
# Calculate error
err <- houseprices$prediction - houseprices$price
price: 実際の販売価格の列(千単位)prediction: 予測販売価格の列(千単位)# Calculate error
err <- houseprices$prediction - houseprices$price
# Square the error vector
err2 <- err^2
# Calculate error
err <- houseprices$prediction - houseprices$price
# Square the error vector
err2 <- err^2
# Take the mean, and sqrt it
(rmse <- sqrt(mean(err2)))
58.33908
# Take the mean, and sqrt it
(rmse <- sqrt(mean(err2)))
58.33908
# The standard deviation of the outcome
(sdtemp <- sd(houseprices$price))
135.2694
R による Supervised Learning:回帰