# Create a tempo
tempo <- Tempo(50, marking = "Adagio (half = 25)")
tempo
# Add it to a `Music`
music <- Music() + Meter(4, 4) + Line(c("C4", "D4", "E4", "F4")) + tempo
music
# Generate the music score
if (interactive()) {
show(music)
}
Run the code above in your browser using DataLab