Intervals Between Pulses Along a Nerve Fibre

Description

Times between successive electric pulses on the surface of isolated muscle fibres.

Usage

data(nervePulse)

Format

The nervePulse data is a vector with 799 observations.

Details

The end-plates of resting muscle fibres are the seat of spontaneous electric discharges. The occurence of these spontaneous discharges at apparently normal synapses is studied in depth in Fatt and Katz (1951). The frequency and amplitute of these discharges was recorded. The times between each discharge were taken in milliseconds and this has been converted into the number of 1/50 sec intervals between successive pulses. There are 799 observations.

Source

Fatt, P., Katz, B. (1952) Spontaneous subthreshold activity at motor nerve endings. J. of Physiology, 117, 109–128.

J<c3><b6>rgensen, B. (1982) Statistical Properties of the Generalized Inverse Gaussian Distribution. Lecture Notes in Statistics, Vol. 9, Springer-Verlag, New York

Examples

data(nervePulse)
str(nervePulse)

### Fit the generalized inverse Gaussian distribution
gigFit(nervePulse)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(GeneralizedHyperbolic)
Loading required package: DistributionUtils
Loading required package: RUnit
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/GeneralizedHyperbolic/nervePulse.Rd_%03d_medium.png", width=480, height=480)
> ### Name: nervePulse
> ### Title: Intervals Between Pulses Along a Nerve Fibre
> ### Aliases: nervePulse
> ### Keywords: datasets
> 
> ### ** Examples
> 
> data(nervePulse)
> str(nervePulse)
 num [1:799] 10.5 1.5 2.5 5.5 29.5 3 9 27.5 18.5 4.5 ...
> 
> ### Fit the generalized inverse Gaussian distribution
> gigFit(nervePulse)

Data:      nervePulse 
Parameter estimates:
   chi     psi  lambda  
0.9227  0.1706  0.8029  
Likelihood:         -818.3671 
Method:             Nelder-Mead 
Convergence code:   0 
Iterations:         164 
> 
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>