RcppArmadillo::armadillo_throttle_cores(1)
library(dplyr)
db = start_new_project(verbAggrRules, ":memory:")
add_booklet(db, verbAggrData, "agg")
add_item_properties(db, verbAggrProperties)
design = get_items(db) |>
rename(cluster_id='behavior')
f = fit_enorm(db)
sts_par = standards_3dc(f, design)
plot(sts_par)
# db_sts = standards_db(sts_par,'test.db',c('mildly aggressive','dangerously aggressive'))
RcppArmadillo::armadillo_reset_cores()
Run the code above in your browser using DataLab