# \donttest{
pstr <- NewPSTR(
Hansen99,
dep = "inva",
indep = 4:20,
indep_k = c("vala", "debta", "cfa", "sales"),
tvars = c("vala", "debta"),
iT = 14
)
# print summary (your R6 print method)
pstr
print(pstr, mode = "summary")
# after running tests/estimation, you can print other sections
# print(pstr, mode = "tests")
# print(pstr, mode = "estimates")
# print(pstr, mode = "evaluation")
# }
Run the code above in your browser using DataLab