Iris=read.csv("Desktop/iris.csv")
Iris$class <- NULL
fitness <- function(x) daisy(Iris, metric = "euclidean", stand = FALSE)
GA <- ga(type = "real-valued", fitness = fitness, min = -30, max =30,popSize=100,pcrossover = 0.8,pmutation = 0.1)
summary(GA)
plot(GA)