# 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)
predict(fit.obj)
predict(fit.obj, newdata = X[1:10,])
# }
Run the code above in your browser using DataLab