## Not run:
# # load illustrative data set provided within the package
# data(EdwardsMBA)
#
# # parse the variables
# y=EdwardsMBA[,'AVGSAT4']
# U=EdwardsMBA[,c('PCPRE','DMPRE','EIPRE','MRPRE')]
# V=EdwardsMBA[,c('PCACT','DMACT','EIACT','MRACT')]
#
# # fit the model
# m1=siRSM(y,U,V)
#
# # look at the model
# m1
# plot(m1)
#
# # F-test of surface curvature
# surface.test(m1)
#
# # inference on the index (using just 10 bootstrap samples here)
# ci.index(y,U,V,B=10)
#
# # obtain statistics of the response surface (conditional on the estimated index)
# surface.stats(m1)
#
# # inference for these surface statistics (again, conditional on the estimated index)
# ci.surface(m1)
#
# # fit an interaction-only model
# m2=siRSM(y,U,V,interaction.only=TRUE)
# plot(m2)
# ## End(Not run)
Run the code above in your browser using DataLab