#####################################################################
# 113 Regrese se dvěma nezávisle proměnnými

P<-c(1,1,2,2,3,3,4,4)
Y<-c(5,10,5,10,5,10,5,10)
D<-c(20,30,15,22,8,15,5,10)

LinRegr2<-lm(D~P+Y)
summary(LinRegr2)


S<-c(10,10,12,12,16,16,20,20)
LinRegr<-lm(S~P)
summary(LinRegr)