set.seed(11)
exdata <- rbind(replicate(3,rnorm(200)),
replicate(3,rnorm(200,10)),
replicate(3,rnorm(200,0.2)))
dwbs(data = exdata)
# Increasing `numInt` will result in more accurate detection
dwbs(data = exdata, numInt = 100)
Run the code above in your browser using DataLab