### a new object
me <- new("ModelEnv")
### define a bivariate response variable
me@set("response", data.frame(y = rnorm(10), x = runif(10)))
me
### check if a response is available
has(me, "response")
### the dimensions
dimension(me, "response")
### extract the data
me@get("response")
### NA handling
df <- data.frame(x = rnorm(10), y = rnorm(10))
df$x[1] <- NA
mf <- ModelEnvFormula(x ~ y, data = df, na.action = na.pass)
mf
na.omit(mf)Run the code above in your browser using DataLab