## Not run:
# # Phoneme data: compare the mean log-periodograms
# # for phonemes "aa" as the vowel in "dark" and "ao"
# # as the first vowel in "water"
# data(phoneme)
# n <- nrow(phoneme)
# N <- ncol(phoneme)
# classes <- split(1:n,phoneme[,N])
# names(classes) <- c("sh", "iy", "dcl", "aa", "ao")
# freq <- 1:150
# compare.aa.ao <- scb.equal(freq, list(phoneme[classes$aa,-N],
# phoneme[classes$ao,-N]), bandwidth = c(.75, .75), scbtype = "both", nboot = 2e3)
# summary(compare.aa.ao)
# ## End(Not run)
Run the code above in your browser using DataLab