# \donttest{
# data
Y <- subset(ifit, id == 1)[,-1]
# fit model with alias (var_estimate also works)
fit <- var_estimate(Y, progress = FALSE)
# summary ('pcor')
print(
summary(fit, cred = 0.95),
param = "pcor",
)
# summary ('beta')
print(
summary(fit, cred = 0.95),
param = "beta",
)
# }
Run the code above in your browser using DataLab