# NOT RUN {
data(mtoys)
jj_expt <- experiment(toy_mm,toy_d)
# accessor methods:
get_obs(jj_expt)
get_mdm(jj_expt)
# estimation of coefficients:
beta_hat(jj_expt, toy_mhp, toy_LoF)
# use multem():
multem(toy_mm3, jj_expt, toy_mhp, toy_LoF,give=TRUE)
# }
Run the code above in your browser using DataCamp Workspace