Replicate lda (Linear Discriminant Analysis) function in R

Question

I am a complete newbie in R - Machine Learning and I have to replicate the FDA - LDA function in R

Optimisation Problem in Fisher\'s LDA

This is what I have done s