# NOT RUN {
data('FEVData')
Model <- pim(FEV~ Smoke*Sex , data=FEVData)
response(Model)
# In pieces
FEVenv <- new.pim.env(FEVData, compare="unique")
FEVform <- new.pim.formula(
Age ~ I(L(Height) - R(Height)) ,
FEVenv
)
response(FEVform)
# }
Run the code above in your browser using DataLab