Update rda_as_qda.R