Last chance! 50% off unlimited learning
Sale ends in
hist.lockedTrain
constructs and plot.hist.lockedTrain
plots estimates of what Cox and Lewis (1966) call the auto- or
cross-intensity functions. The auto-intensity function is also called
the renewal density by Cox and Lewis and by Perkel et al (1967) while
it is called the intensity of the Palm distribution by Ogata
(1988). The (estimate of) the cross-intensity function is called
cross-correlation function by Perkel et al (1967b) and
cross-correlation histogram by Brillinger et al (1976).
"hist"(x, bw, breaks = NULL, plot = TRUE, ...)
"plot"(x, style = c("Ogata", "Brillinger"), CI, unit = "s", xlab, ylab, xlim, ylim, type, pch, ...)
lockedTrain
object returned by the
lockedTrain
function.NULL
(default) breaks are built using argument
bw
and component laglim
of obj
.TRUE
a plot is generated as a side
effect and nothing is returned, if FALSE
a list of class
hist.lockedTime
is returned."Ogata"
or "Brillinger"
.plot
. Default supplied.plot
. Default supplied.lines
. Default supplied.plot
. Default supplied.plot
.plot
in hist.lockedTrain
is set to FALSE
a list of class hist.lockedTrain
with the following components is
returned:density
returned by hist
.hist
.breaks
. . Similar to the component of the same name returned
by hist
.TRUE
if a cross-intensity was
estimated and FALSE
in the case of an auto-intensity. The cross-intensity function of two spike trains A and B is estimated by
(Perkel et al, 1967b, p424, Eq. 4 and 5):
style
argument of plot.hist.lockedTrain
generates a
plot looking like Fig. 6, p 18 of Ogata (1988) if set to
"Ogata"
. Using style
"Brillinger"
plots the
square root of the estimate.
D. R. Cox and P. A. W. Lewis (1966) The Statistical Analysis of Series of Events. John Wiley and Sons.
J. A. McFadden (1962) On the Lengths of Intervals in a Stationary Point Process. Journal of the Royal Statistical Society. Series B, 24: 364-382 Perkel D. H., Gerstein, G. L. and Moore G. P. (1967) Neural Spike Trains and Stochastic Point Processes. I. The Single Spike Train. Biophys. J., 7: 391-418. http://www.pubmedcentral.nih.gov/articlerender.fcgi?tool=pubmed&pubmedid=4292791
Perkel D. H., Gerstein, G. L. and Moore G. P. (1967b) Neural Spike Trains and Stochastic Point Processes. I. Simultaneous Spike Trains. Biophys. J., 7: 419-440. http://www.pubmedcentral.nih.gov/articlerender.fcgi?tool=pubmed&pubmedid=4292792
David R. Brillinger, Hugh L. Bryant and Jose P. Segundo (1976) Identification of synaptic interactions. Biol Cybern, 22: 213-228.
David R. Brillinger (1976) Estimation of the Second-Order Intensities of a Bivariate Stationary Point Process. Journal of the Royal Statistical Society. Series B (Methodological), 38, 60-66.
varianceTime
,
renewalTestPlot
,
lockedTrain
## Reproduce Fig. 6 of Ogata 1988
data(ShallowShocks)
shalShocks <- lockedTrain(as.spikeTrain(ShallowShocks$Date),,c(0,500))
shalShocksH <- hist(shalShocks,5,plot=FALSE)
plot(shalShocksH,"Ogata",c(0.95,0.99),xlab="TIME LAG (DAYS)",ylab="NUMBER OF EVENTS PER DAY")
## Reproduce Fig. 7 of Ogata 1988
myBinNb <- 101
myMidPoints <- seq(from = 1, to = 6, length.out=myBinNb)
myMidPoints <- 10^myMidPoints/200
myBreaks <- c(0,myMidPoints[-myBinNb] + diff(myMidPoints) / 2)
shalShocksH2 <- hist(shalShocks,breaks=myBreaks,plot=FALSE)
yy <- abs(shalShocksH2$density - shalShocksH2$refFreq)
plot(shalShocksH2$mids[shalShocksH2$density>0],
yy[shalShocksH2$density>0],
pch = 1,
xlim = c(0.001,10000),
log = "xy",
xlab = "TIME LAG (DAYS)",
ylab = "NUMBER OF EVENTS PER DAY"
)
Run the code above in your browser using DataLab