set.seed(225)
daten <- dgp(n = 100, b = c(1, 2), sc = -1)
test <- sfa(y ~ x, data = daten)
coef(test)
print(test)
predict(test)
fitted(test)
logLik(test)
residuals(test)
summary(test)
eff(test)
Run the code above in your browser using DataLab