## Not run:
# ## load CAL1S data
# data(CAL1S)
# ## convert the data into spikeTrain objects
# CAL1S <- lapply(CAL1S,as.spikeTrain)
# ## look at the train of the 1sd neuron
# CAL1S[["neuron 1"]]
# ## fit a invgauss model to the 1st neuron spike train
# n1SDFig <- invgaussMLE(CAL1S[["neuron 1"]])
# is.durationFit(n1SDFig)
# coef(n1SDFig)
# logLik(n1SDFig)
# ## End(Not run)
Run the code above in your browser using DataLab