After a short discussion I decided to post my compete code and data set. I hope this makes sence.
Thanks, Jim # READ DATA # ========= http://www.nabble.com/file/p16923910/SampleCluster.txt SampleCluster.txt setwd("C:/Program Files/R/library/mboost/data") SampleClusterData <- read.table("SampleCluster.txt",header=TRUE,sep=",") indep <- names(SampleClusterData) [-98]# INPUTS # GENERATE FORMULA # =============== modelformula <- as.formula(paste("CR ~",paste(indep,collapse="+"))) # CREATE MODEL # =========== setwd("C:/Program Files/R/library/mboost") library(mboost) # Additive Model for same Variables # ========================= model <- gamboost(modelformula,data=SampleClusterData,baselearner="bbs") # STORE AND CALL MODEL FILE # ====================== save(model,file="model.RData") # STORE MODEL # ... # New R-Session setwd("C:/Program Files/R/library/mboost") model <- load("model.rdata") # PREDICT WITH A STORED MODEL OBJECT # ============================== Prediction <- predict(model, newdata= SampleClusterData) # WRITE PREDICTION TO FILE # ===================== write.table(Prediction,file="C:/Prediction.txt") -- View this message in context: http://www.nabble.com/Calling-a-stored-model-within-the-predict%28%29-function-tp16918111p16923910.html Sent from the R help mailing list archive at Nabble.com. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
