# NOT RUN {
db = start_new_project(verbAggrRules, "verbAggression.db")
add_booklet(db, verbAggrData, "agg")
m = fit_inter(db, booklet_id=='agg')
plot(m, "S1DoScold", show.observed=TRUE)
close_project(db)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab