w <- last(mdf[,13],138) %>% c(.,c(5374,NA)) %>% matrix(.,nrow=7) %>% t()
i <- 20
r <- lm(w[-i,7] ~ w[-i,1] + w[-i,2] + w[-i,3] + w[-i,4] +w[-i,5] + w[-i,6] )
summary(r)
r$coefficients[1] + r$coefficients[2]*w[20,1] + r$coefficients[3]*w[20,2] + r$coefficients[4]*w[20,3] + r$coefficients[5]*w[20,4] + r$coefficients[6]*w[20,5] + r$coefficients[7]*w[20,6]
i <- 20
r <- lm(w[-i,7] ~ w[-i,1] + w[-i,2] + w[-i,3] + w[-i,4] +w[-i,5] + w[-i,6] )
summary(r)
r$coefficients[1] + r$coefficients[2]*w[20,1] + r$coefficients[3]*w[20,2] + r$coefficients[4]*w[20,3] + r$coefficients[5]*w[20,4] + r$coefficients[6]*w[20,5] + r$coefficients[7]*w[20,6]
