## generate data
p <- c(.1,.5,.9)
rt <- sapply(1:3, function(i) {rnormMix(1000, c(1,2), c(1,1), p[i])})
dat <- data.frame(rt=c(rt), cond=rep(1:3, each=1000))
## compute fpp object
fpobject <- fpGet(dat, 1000, bw=.75)
## plot it
op <- par(mfrow=c(1,2))
plot(fpobject)
par(op)
Run the code above in your browser using DataLab