R/kayMarpleExample.R

In krahim/multitaperDevelopment: multitaperDevelopment

kayMarpleExample <- function(t) {
    ## we expect t=1,2,..., N
    ## see P and W page 480
    ## Kay and Marple (1981) page 1386
    res <- 0.9 * cos(2 * pi * t / 7.5) +
        0.9 * cos((2 * pi *t / 5.3) + pi/2) +
        cos(2 * pi * t / 3)
    res
}