x <- "a e4 a4 e5 a5"
y <- pitch_freq(x)
y
freq_semitones(y)
freq_pitch(y)
identical(as_noteworthy(x), freq_pitch(y, "integer", collapse = TRUE))
s <- pitch_semitones(x)
s
semitone_pitch(s)
x <- "a, a,c#e"
chord_semitones(x)
chord_freq(x)
Run the code above in your browser using DataLab