for (shape in c(0, -.1, .1, -1, 1)) {
s = soundgen:::getSigmoid(shape = shape, len = 1000, samplingRate = 500, freq = 2)
plot(s, type = 'l', main = paste('shape =', shape), xlab = '', ylab = '')
}
Run the code above in your browser using DataLab