R/is.toeplitz.R

`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 May 2, 2019, 4:01 a.m.