# \donttest{
pstr <- NewPSTR(Hansen99, dep = "inva", indep = 4:20,
indep_k = c("vala","debta","cfa","sales"),
tvars = c("vala"), iT = 14)
pstr <- EstPSTR(use = pstr, im = 1, iq = 1,
useDelta = TRUE, par = c(.63,0), method = "CG")
# Exported function
plot_transition(pstr)
# R6 method
pstr$plot_transition()
# }
Run the code above in your browser using DataLab