#Simulates a test and returns a list:
test <- simulateTest()
#the simulated data:
t_data <- test$test
#model:
mod <- irtpp(dataset = t_data,model = "3PL")
#Envelopes:
item <- 8
numboot <- 100
alpha <- 0.05
#call the function:
plotenvelope(item=item,numboot=numboot,alpha=alpha,model=mod,data=t_data)
Run the code above in your browser using DataLab