data(dataME)
data(datamix)
sae.me <- FHme(formula = y ~ x.hat, vardir = vardir, var.x = c("var.x"), data = dataME)
sae.mix <- FHme(formula = y ~ x.hat1 + x.hat2 + x3 + x4,
vardir = vardir, var.x = c("var.x1", "var.x2"), type.x = "mix", data = datamix)
Run the code above in your browser using DataLab