# NOT RUN {
sawtooth <- function(r) {
x <- r/(2*pi)
x - floor(x) - 0.5
}
data <- three_channel_model(cos, sin, sawtooth,
input_freq = c(0.2, 0.3, 0.4),
noise_sd = 0.9)
# }
Run the code above in your browser using DataLab