WineData.(1) <- read.csv(“C:/Users/lnun/Desktop/Chemometrics/WineData (1).csv”) View(WineData.(1)) winedatascaled <- scale(WineData.(1)[-1]) View(winedatascaled) head(winedatascaled) wine.dist = dist(winedatascaled) dist.eucl <- dist(winedatascaled, method = “euclidean”) round(as.matrix(dist.eucl)[1:3, 1:3], 1) dist.eucl <- dist(winedatascaled, method = “maximum”) dist.eucl <- dist(winedatascaled, method = “euclidean”) round(as.matrix(dist.eucl)[1:3, 1:3], 1) dist. <- dist(winedatascaled, method = “maximum”) round(as.matrix(dist.)[1:3, 1:3], 1) dis <- dist(winedatascaled, method = “manhattan”) round(as.matrix(dis)[1:3, 1:3], 1) install.packages(“rmarkdown”)