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

From: Jim_S <virtualreal_at_gmail.com>
Date: Sun, 27 Apr 2008 06:41:52 -0700 (PDT)

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.
Received on Sun 27 Apr 2008 - 13:50:27 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Sun 27 Apr 2008 - 16:30:32 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive