Nothing
gamRF <-
function (formlist, yvar, data, newdata = NULL, rfVars, method = "GCV.Cp",
printit = TRUE, seed = NULL)
{ if(!is.null(seed))set.seed(seed)
errRate <- numeric(length(formlist)+2)
names(errRate) <- c(names(formlist), "rfTest", "rfOOB")
ytrain <- data[, yvar]
xtrain <- data[, rfVars]
xtest <- newdata[, rfVars]
ytest = newdata[, yvar]
res.rf <- randomForest(x = xtrain, y = ytrain,
xtest=xtest,
ytest=ytest)
errRate["rfOOB"] <- mean(res.rf$mse)
errRate["rfTest"] <- mean(res.rf$test$mse)
GAMhat <- numeric(nrow(data))
for(nam in names(formlist)){
form <- as.formula(paste(c(yvar, paste(formlist[[nam]])), collapse=" "))
train.gam <- mgcv::gam(form, data = data, method = method)
res <- resid(train.gam)
cvGAMms <- sum(res^2)/length(res)
if (!all(rfVars %in% names(newdata))) {
missNam <- rfVars[!(rfVars %in% names(newdata))]
stop(paste("The following were not found in 'newdata':",
paste(missNam, collapse = ", ")))
}
GAMtesthat <- predict(train.gam, newdata = newdata)
GAMtestres <- ytest - GAMtesthat
Gres.rf <- randomForest(x = xtrain, y = res, xtest = xtest,
ytest = GAMtestres)
errRate[nam] <- mean(Gres.rf$test$mse)
}
if (printit)
print(round(errRate, 4))
invisible(errRate)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.