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

#edit(daten)

result <- lm(P ~ GDPN + CVN + N + PP + DPC + IPC, data=daten)

summary(result)



qt(0.95,26)