# NOT RUN {
scale_degree("r c, e3 g~ g s g# ceg")
note_in_scale("r c, e3 g~ g s g# ceg")
scale_degree("c e g", roman = TRUE)
scale_degree("c c# d_ e", key = "d")
scale_degree("c c# d_ e", key = "d", strict_accidentals = FALSE)
scale_degree("c, e_3 g' f#ac#", use_root = FALSE)
scale_degree("c, e_3 g' f#ac#", naturalize = TRUE) # lowest chord pitch: c#
scale_degree("c# d_ e_' e4 f f# g", key = "c#", scale = "chromatic")
scale_note(1:3, key = "am")
scale_note(c(1, 3, 8), "d", collapse = TRUE)
all(sapply(list(4, "IV", as.roman(4)), scale_note) == "f")
x <- "d dfa df#a f#ac#"
chord_degree(x, "d")
is_in_scale(x, "d")
# }
Run the code above in your browser using DataLab