# NOT RUN {
# Generate data
X <- matrix(rnorm(1000,0,1),
ncol=4,
dimnames=list(NULL,c("X1","X2","X3","X4")))
Y <- X %*% c(0.1, 0.2, 0.3, 0.4) + rnorm(250)
X <- data.frame(X)
# Create modeling object using a formula
mo <- buildModelObj(model=Y ~ X1 + X2 + X3 + X4,
solver.method='lm')
# Fit model
fit.obj <- fit(object=mo, data=X, response=Y)
obj <- fitObject(fit.obj)
fobj <- fitted.values(obj)
head(fobj)
# }
Run the code above in your browser using DataLab