library(devtools)
unloadNamespace('devtools')
devtools::load_all()
freq <- P.n(7, a = 0)
drums <- sequence(freq, c(1, 2 - 1/8, 3, 4, 4.5),
c(0.75, 1, 0.75, 0.5, 0.5),
beats = 4, tempo = 90)
play(rep(drums, 4))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.