carry out Linear Discriminant Analysis

Hi.
I am trying to analyze the data set data(wine) which is available in the R package gclus.
I split the data set according to the proportions 70:30 into a training and a test set.

library(gclus)
data("wine")
sample_size <- floor(0.70 * nrow(wine))
set.seed(123)
train_index <- sample(seq_len(nrow(wine)), size = sample_size)
train <- wine[train_index, ]
test <- wine[-train_index, ]

Have you attempted to search for tutorials on Linear Discriminant Analysis in R ?