daten <- read.table("/home/tobi/Desktop/Tobi/ss2008/htwt12.csv", header=TRUE, sep=";")

result <- lm(Y ~ X,data=daten)
summary(result)

plot(daten$X,daten$Y, main = "guessing game", xlab = "X Achse (Größe)", ylab = "Y Achse (Gewicht)", xlim = c(0,40), ylim = c(50,90))
   abline(result$coef)

edit(daten)