Answered step by step
Verified Expert Solution
Link Copied!

Question

1 Approved Answer

Graph the mean squared error against the number of trees for a random forest regression model for maximum heart rate achieved using age (age), sex

  • Graph the mean squared error against the number of trees for a random forest regression model for maximum heart rate achieved using age (age), sex (sex), chest pain type (cp), resting blood pressure (trestbps), cholesterol measurement (chol), resting electrocardiographic measurement (restecg), exercise-induced angina (exang), slope of peak exercise (slope), and number of major vessels (ca). Use a maximum of 80 trees. Use set.seed(511038).

set.seed(511038) library(randomForest) model_heartdataclass1 <- randomForest(target ~ age+sex+cp+trestbps+chol+restecg+exang+slope+ca, data=train.data, ntree = 80)

RMSE = function(pred, obs) { return(sqrt( sum( (pred - obs)^2 )/length(pred) ) ) }

print("======================================================================================================================") print('Root Mean Squared Error: TRAINING set based on random forest model built using 80 trees') pred <- predict(model_heartdataclass1, newdata=train.data, type='response') RMSE(pred, train.data$target)

print("======================================================================================================================") print('Root Mean Squared Error: TESTING set based on random forest model built using 80 trees') pred <- predict(model_heartdataclass1, newdata=test.data, type='response') RMSE(pred, test.data$target)

[1] "======================================================================================================================" [1] "Root Mean Squared Error: TRAINING set based on random forest model built using 80 trees"

Warning message in Ops.factor(pred, obs): "'-' not meaningful for factors"

[1] "======================================================================================================================" [1] "Root Mean Squared Error: TESTING set based on random forest model built using 80 trees"

Warning message in Ops.factor(pred, obs): "'-' not meaningful for factors"

Step by Step Solution

There are 3 Steps involved in it

Step: 1

blur-text-image

Get Instant Access to Expert-Tailored Solutions

See step-by-step solutions with expert insights and AI powered tools for academic success

Step: 2

blur-text-image

Step: 3

blur-text-image

Ace Your Homework with AI

Get the answers you need in no time with our AI-driven, step-by-step assistance

Get Started

Recommended Textbook for

Paradoxes In Mathematics

Authors: Stanley J Farlow

1st Edition

0486791734, 9780486791739

More Books

Students also viewed these Mathematics questions

Question

13. Let X be exponential with mean 1/; that is, fX (x) = ex , 0 1].

Answered: 1 week ago