[R] Calling a stored model within the predict() function

[Prof Brian Ripley]

Please read ?load more carefully.

Also, don't send multiple copies and completely ignore the posting guide 
-- people who do reduce dramatically their chances of getting a reply.


On Sun, 27 Apr 2008, Jim_S wrote:

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

-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595