R/is.toeplitz.R

Defines functions `is.toeplitz`

`is.toeplitz` <-
function(x){
is.matrix(x)&&(nrow(x)==ncol(x))&&(max(abs(x-toeplitz(x[1,])))<.Machine$double.eps)
}

Try the ltsa package in your browser

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

ltsa documentation built on Sept. 18, 2024, 5:07 p.m.