load('/Users/daniellinares/Dropbox/p/quickpsy/holcombe data/data123targets269objects.Rdata')
library(quickpsy)

psycho <- function(x, p) 1 - cum_normal_fun(x, p) 

fit <- quickpsy(dat, speed, correct, 
                grouping = .(subject, numObjects,numTargets), 
                fun = psycho, parini = c(1, .1), bootstrap = 'none', xmax = 3)

plotcurves(fit, xpanel = subject)