# initialize a Music object
m <- Music()
# add a Line object
m <- m + Line(list("C4"), list(1))
m
# add a Meter object
m <- m + Meter(4, 4)
m
# add a Key object
m <- m + Key(1)
m
# add a Clef object
m <- m + Clef("G", to = 1)
m
# add a Tempo object
m <- m + Tempo(120)
m
Run the code above in your browser using DataLab