# NOT RUN {
x <- "a# b_ c, d'' e3 g_4 A m c2e_2g2 cegh"
data.frame(
x = strsplit(x, " ")[[1]],
note = is_note(x),
chord = is_chord(x),
either = noteworthy(x))
is_diatonic("ace ac#e d e_", "c")
x <- "a# b_ c,~ c, d'' e3 g_4 c2e_2g2"
x <- as_noteworthy(x)
x
summary(x)
# }
Run the code above in your browser using DataLab