Machine Learning, Lda, Dimensionality Reduction, Neural Networks, Towards Data Science.
dataset maxs = apply( data[,1:18], 2, max ) mins = apply( data[,1:18], 2, min ) dataset = as.data.frame( scale( data[,1:18], center = mins, scale = maxs - mins ) ) dataset = cbind( dataset, "class" = data$class ) # Split dataset index = sample( 1:nrow( dataset ), round( nrow( dataset )*0.6 ),