inst/scripts/geys_ts.q

d<-geyser$duration
cat("Data are: d=(duration of geyser eruption)\n")
cat("Marginal density of d(t) first, followed by\n")
cat("estimated density of (d(t-k),d(t)), for k=1,2\n")
a<-sm.ts.pdf(d,lags=c(1,2))

Try the sm package in your browser

Any scripts or data that you put into this service are public.

sm documentation built on Sept. 27, 2018, 5:03 p.m.