powered by
sfa
sfa(formula, data = NULL, intercept = TRUE, fun = "hnormal", pars = NULL, par_mu = NULL, form = "cost", method = "BFGS", ...)
formula
optim
set.seed(225) daten <- dgp(n = 100, b = c(1, 2), sc = -1) test <- sfa(y ~ x, data = daten)
Run the code above in your browser using DataLab