major_triad_normal_form <- c(0, 4, 7)
major_triad_open_spacing <- c(0, 7, 16)
major_triad_voice_crossing <- c(0, 7, 4)
major_triad_on_des <- c(1, 5, 8)
major_triad_doubled_third_omit_5 <- c(0, 4, 4)
example_triads <- cbind(major_triad_normal_form,
major_triad_open_spacing,
major_triad_voice_crossing,
major_triad_on_des,
major_triad_doubled_third_omit_5)
apply(example_triads, 2, optc_test)
optc_test(major_triad_voice_crossing, single_answer=FALSE)
Run the code above in your browser using DataLab