Update qda.R