if (requireNamespace("ggplot2", quietly = TRUE)) {
b_streams <- r_behavior_stream(n = 5, mu = 3, lambda = 10,
F_event = F_exp(), F_interim = F_exp(),
stream_length = 100)
plot(b_streams)
}
Run the code above in your browser using DataLab