# \donttest{
pstr <- NewPSTR(Hansen99, dep = "inva", indep = 4:20,
indep_k = c("vala","debta","cfa","sales"),
tvars = c("vala","debta","cfa","sales"), iT = 14)
# default: summary only
pstr
# specification tests
print(pstr, mode = "tests", format = "simple")
print(pstr, mode = "tests", format = "pipe", caption = "The test results")
# estimates
print(pstr, mode = "estimates")
# evaluation
print(pstr, mode = "evaluation")
# R6 method interface (same output)
pstr$print(mode = c("summary","tests"))
# }
Run the code above in your browser using DataLab