Rで多変量回帰

data1<-data.frame(a,b,c)

l2<-lm(c~a+b,data=kawase)
summary(l2)

plot(data1$c,type="l")
points(predict(l2),type="l",col=3)
plot(l2)