# NOT RUN {
data("iris")
me <- ModelEnvFormula(Species+Petal.Width~.-1, data=iris,
subset=sample(1:150, 10))
me1 <- MEapply(me, FUN=list(designMatrix=scale,
response=function(x) sapply(x, as.numeric)))
me@get("designMatrix")
me1@get("designMatrix")
# }
Run the code above in your browser using DataLab