library(MPDiR) # contains the Vernier data
data(Vernier) # ?Venier for the reference
fit <- quickpsy(Vernier, Phaseshift, NumUpward, N,
grouping = .(Direction, WaveForm, TempFreq),
bootstrap = 'none')
boot_samples <- parbootstrap(fit)
head(boot_samples)Run the code above in your browser using DataLab