# noteworthy class examples
x <- "a b c"
length(x)
length(as_noteworthy(x))
length(as_noteworthy("a b*2 c*2"))
# noteinfo class examples
x <- "4- t8( t8)( t8) 4*2"
length(x)
length(as_noteinfo(x))
# music class examples
x <- "c,~4 c,1 c'e_'g'4-.*4"
length(x)
length(as_music(x))
Run the code above in your browser using DataLab