# \donttest{
pstr <- NewPSTR(Hansen99, dep = "inva", indep = 4:20,
indep_k = c("vala", "debta", "cfa", "sales"),
tvars = c("vala"), iT = 14)
# 1) Exported function interface
ret <- plot_target(obj = pstr, iq = 1, basedon = c(1, 2),
from = c(log(1), 6), to = c(log(18), 10),
length.out = c(40, 40))
# 2) R6 method interface
ret2 <- pstr$plot_target(iq = 1, basedon = c(1, 2),
from = c(log(1), 6), to = c(log(18), 10),
length.out = c(40, 40))
# }
Run the code above in your browser using DataLab