Re: Calling a stored model within the predict() function

> 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@... 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.
>