# Loading the 'tcals' parameters 
 data(tcals)
 # Item bank creation with 'tcals' item parameters
 bank <- createItemBank(tcals)
 
 # Random selection of 4 starting items
 startItems(bank, seed=1, nrItems=4)
 # Selection of the first 5 starting items
 startItems(bank, fixItems=1:5)
 # Selecting 1 starting item, initial ability estimate is 0
 startItems(bank) 
 # Selecting 3 starting items, initial ability estimate is 1
 # and half range is 2
 startItems(bank, nrItems=3, theta=1, halfRange=2) 
 # Idem but with 'information' criterion
 startItems(bank, nrItems=3, theta=1, halfRange=2, startSelect="MFI")
 
 # Selecting 5 starting items, initial ability estimate is 2
 # and half range is 3
 startItems(bank, nrItems=5, theta=2, halfRange=3)Run the code above in your browser using DataLab