El codigo aqui usado se base en los codigos implementados en esta página http://www.sthda.com/english/articles/36-classification-methods-essentials/146-discriminant-analysis-essentials-in-r/