daten_2002 <- read.csv("/home/tobi/Desktop/Tobi/data/worldbank_2002.csv", header=TRUE, sep=";")

 plot(daten_2002$GDP,daten_2002$GDP.growth, main = "Year 2002", xlab = "X Achse (GDP)", ylab = "Y Achse (GDP growth)")

   abline(result$coef)

  result <- lm(GDP.growth ~ GDP,data=daten_2002)
 summary(result)