Code Templates
Reusable snippets for common workflows.Regression Template
Regression Template
r
model <- lm(y ~ x1 + x2 + x3, data = mydata)
summary(model)
pred <- predict(model, newdata = test_data)
rmse <- sqrt(mean((test_data$y - pred)^2))
rmseCross-Validation Template
Simple Holdout
r
set.seed(42)
idx <- sample(1:nrow(mydata), size = 0.75 * nrow(mydata))
train <- mydata[idx, ]
valid <- mydata[-idx, ]
model <- lm(y ~ x1 + x2 + x3, data = train)
pred <- predict(model, newdata = valid)
rmse <- sqrt(mean((valid$y - pred)^2))
rmse