Displaying 1 result from an estimated 1 matches for "svdpc".
Did you mean:
svdcp
2011 Apr 14
1
saving a regression model to a file
...er=TRUE, sep=",")
data <- data.frame(data)
data$type <- factor(data$type)
pcrmodel <- pcr(formula=count~week+type+total, data=data, x=TRUE, y=TRUE)
#########getting summary of model########
summary(pcrmodel)
Output:
Data: X dimension: 318 4
Y dimension: 318 1
Fit method: svdpc
Number of components considered: 4
TRAINING: % variance explained
1 comps 2 comps 3 comps 4 comps
X 99.57 100.00 100.00 100.00
count 13.70 16.01 16.17 16.54
########saving the model#########
save(pcrmodel, file='model.rda')
########loading the model###...