purkinjeCellData: Spike Trains of a Purkinje Cells (PC) Recorded in Control...
In STAR: Spike Train Analysis with R

Description Usage Format Details Source Examples

An object of class "SpikeTrain". Spontaneous discharge of a single PC recorded during 300 s in normal saline conditions and during 300 s in the presence of 25 microM bath applied bicuculline.

1 2	data(sPK) data(mPK)

sPK is a named list with 2 components ("ctl", "bicu". Each component contains the spike train (ie, action potentials occurrence times) of one Purkinje cell recorded during 300 s of spontaneous activity in control ("ctl") condition and with bath applied bicuculline ("bicu"). Times are expressed in seconds.

mPK is a named list with 8 components ("neuron 1", "neuron 2", ..., "neuron 8". Each component is itself a list with the spike train (ie, action potentials occurrence times) of one Purkinje cell recorded during 300 s of spontaneous activity in control ("ctl") condition and with bath applied bicuculline ("bicu"). Times are expressed in seconds.

The recording contained in sPK was done in cell-attached mode. The one in mPK was done with a NeuroNexus silicon probe.

Bicuculline is a GABAA receptor antagonist. It blocks all GABAA inhibition.

Recording and spike sorting performed by Matthieu Delescluse at the Cerebral Physiology Lab, CNRS UMR 8118: http://www.biomedicale.univ-paris5.fr/physcerv/physiologie_cerebrale.htm.

## Not run: 
## load spontaneous data of 1 Purkinje cell
## recorded in cell attached mode from a cerebellar
## slice in control and bath applied bicuculline conditions
data(sPK)
## coerce data to spikeTrain objects
sPK <- lapply(sPK,as.spikeTrain)
## Get a summary of the ctl data
summary(sPK[["ctl"]])
## Look at the control train
## Don't show the rug plot for clarity
plot(sPK[["ctl"]],addRug=FALSE)
## Generate the renewal test plot taking into account
## the size of the data set (a lot of spikes!).
renewalTestPlot(sPK[["ctl"]],d=10,orderPlotPch=".",lag.max=250)
## Get a summary of the bicu data
summary(sPK[["bicu"]])
## Look at the control train
## Don't show the rug plot for clarity
plot(sPK[["bicu"]],addRug=FALSE)
## Generate the renewal test plot taking into account
## the size of the data set (a lot of spikes!).
renewalTestPlot(sPK[["bicu"]],d=10,orderPlotPch=".",lag.max=250);par(oldpar)
## This time the data are NOT stationary. This is seen clearly on a acf
## plot with very large lag.max
acf.spikeTrain(sPK[["bicu"]],lag.max=2000)


## End(Not run)