set.seed(124)
seedata(rnorm(1000),col="bisque2")
Seewave-Example24