#create a miebl output for default 90% desired true mastery
xx<-miebl(10)
#Uses the miebl output for miebl_re for 90% and 80% performance criterion
r1<-miebl_re(xx,mc=90)
r2<-miebl_re(xx,mc=80)
miebl_cp(r1,r2)
Run the code above in your browser using DataLab