STAR (version 0.3-7)

purkinjeCellData: 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 $micro$M 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.

Source

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.

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.

Examples

## 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)