## Not run:
# ## load spontaneous data of 4 putative projection neurons
# ## simultaneously recorded from the cockroach (Periplaneta
# ## americana) antennal lobe
# data(CAL1S)
# ## convert data into spikeTrain objects
# CAL1S <- lapply(CAL1S,as.spikeTrain)
# ## look at the individual trains
# ## first the "raw" data
# CAL1S[["neuron 1"]]
# ## contruct the lockedTrain of each neuron with itself and look at
# ## it using a lag of +/- 25 ms
# lockedTrain(CAL1S[["neuron 1"]],laglim=c(-1,1)*0.025)
# lockedTrain(CAL1S[["neuron 2"]],laglim=c(-1,1)*0.025)
# lockedTrain(CAL1S[["neuron 3"]],laglim=c(-1,1)*0.025)
# lockedTrain(CAL1S[["neuron 4"]],laglim=c(-1,1)*0.025)
#
# ## Look at the Vanillin responses
# ## Get the data
# data(CAL1V)
# ## convert them into repeatedTrain objects
# ## The stimulus command is on between 4.49 s and 4.99s
# CAL1V <- lapply(CAL1V,as.repeatedTrain)
# ## look at the individual raster plots
# plot(CAL1V[["neuron 1"]],stimTimeCourse=c(4.49,4.99),main="N1")
# plot(CAL1V[["neuron 2"]],stimTimeCourse=c(4.49,4.99),main="N2")
# plot(CAL1V[["neuron 3"]],stimTimeCourse=c(4.49,4.99),main="N3")
# plot(CAL1V[["neuron 4"]],stimTimeCourse=c(4.49,4.99),main="N4")
# ## construct the locked train for the 3 pairs with neuron 1 as a
# ## reference
# plot(lockedTrain(CAL1V[["neuron 1"]],CAL1V[["neuron 3"]],
# laglim=0.01*c(-1,1)),stimTimeCourse=c(4.49,4.99),pch="*")
# plot(lockedTrain(CAL1V[["neuron 1"]],CAL1V[["neuron 2"]],
# laglim=0.01*c(-1,1)),stimTimeCourse=c(4.49,4.99),pch="*")
# plot(lockedTrain(CAL1V[["neuron 1"]],CAL1V[["neuron 4"]],
# laglim=0.01*c(-1,1)),stimTimeCourse=c(4.49,4.99),pch="*")
# ## End(Not run)
Run the code above in your browser using DataLab