data(orni)
spec1 <- meanspec(orni, f=22050)
symba(spec1[,2], plot=TRUE)
Seewave-Example20