powered by
is.rts()
is.ts()
is.tseries()
is.tseries(x)
tseries
tser <- ts(sin((1:100)/6*pi)+rnorm(100, sd=0.5), start=c(1998, 4), frequency=12) is.tseries(tser) # TRUE not.a.ts <- c(1,2,3) is.tseries(not.a.ts) # FALSE
Run the code above in your browser using DataLab