csetzkorn

library(dplyr)
library(kohonen)

setwd('C:\\Users\\Christian\\Source\\Repos\\BlaDiBla')

OrginalData <- read.table("IrisData.txt",
                   header = TRUE, sep = "\t")

SubsetData <- subset(OrginalData, select = c("SepalLength", "SepalWidth", "PetalLength", "PetalWidth"))
TrainingMatrix <- as.matrix(scale(SubsetData))