# NOT RUN {
myRegressionData <- rmultreg(50, k=3, p=.5, sdnoise = .25)
pairs(myRegressionData$data)
out <- ices(y ~ ., data = myRegressionData$data) # fit model to simulated data
confint(out) # calculate 95% confidence intervals for all coefficients
myRegressionData$coefficients # compare with true coefficients
# }
Run the code above in your browser using DataLab