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@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, [EMAIL PROTECTED] 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 ______________________________________________ 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.
