https://github.com/cran/ltsa
Revision 0a03bbb7cf19e479dc77592ed09621eeb8afb470 authored by A.I. McLeod on 21 December 2015, 08:55:04 UTC, committed by cran-robot on 21 December 2015, 08:55:04 UTC
1 parent 83deceb
Raw File
Tip revision: 0a03bbb7cf19e479dc77592ed09621eeb8afb470 authored by A.I. McLeod on 21 December 2015, 08:55:04 UTC
version 1.4.6
Tip revision: 0a03bbb
is.toeplitz.R
`is.toeplitz` <-
function(x){
is.matrix(x)&&(nrow(x)==ncol(x))&&(max(abs(x-toeplitz(x[1,])))<.Machine$double.eps)
}

back to top