## Not run:
# ## load e070528spont data set
# data(e070528spont)
# ## create a lockedTrain object with neuron 1 as reference
# ## and neuron 3 as test up to lags of +/- 250 ms
# lt1.3 <- lockedTrain(e070528spont[[1]],e070528spont[[3]],laglim=c(-1,1)*0.25)
# ## look at the cross raster plot
# lt1.3
# ## build a histogram of it using a 10 ms bin width
# hist(lt1.3,bw=0.01)
# ## do it the smooth way
# slt1.3 <- gamlockedTrain(lt1.3)
# plot(slt1.3)
# ## do some check on the gam fit
# summary(slt1.3)
# gam.check(gamObj(slt1.3))
# ## End(Not run)
Run the code above in your browser using DataLab