# NOT RUN {
modes()
mode_dorian("c")
mode_modern("dorian", "c")
mode_modern("dorian", "c", ignore_octave = TRUE)
identical(mode_rotate(mode_ionian("c"), 1), mode_dorian("d"))
identical(
mode_rotate(mode_ionian("c", ignore_octave = TRUE), 1),
mode_dorian("d", ignore_octave = TRUE)
)
setNames(data.frame(t(sapply(modes(), mode_modern, ignore_octave = TRUE))), as.roman(1:7))
# }
Run the code above in your browser using DataLab