purkinjeCellData {STAR} | R Documentation |
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.
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)