# \donttest{
data("ids_data")
mydata_BB_y14 <- shape_data(
data = ids_data,
age_name = "age",
score_name = "y14",
family = "BB"
)
mod_BB_y14 <- fb_select(
data = mydata_BB_y14,
age_name = "age",
score_name = "shaped_score",
family = "BB",
selcrit = "BIC"
)
norm_mod_BB_y14 <- normtable_create(
model = mod_BB_y14,
data = mydata_BB_y14,
age_name = "age",
score_name = "shaped_score"
)
# default plot
plot_normtable(norm_mod_BB_y14)
# }
Run the code above in your browser using DataLab