R: Spike Trains of a Purkinje Cells (PC) Recorded in Control...
purkinjeCellData
R Documentation
Spike Trains of a Purkinje Cells (PC) Recorded in Control
Conditions and With Bath Applied Bicuculline
Description
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.
Usage
data(sPK)
data(mPK)
Format
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.
Details
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.
## 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)