> lm.M<-lm(y~x1+x2+x3+x4+x5+x6,data=ms)
> summary(lm.M)

Call:
lm(formula = y ~ x1 + x2 + x3 + x4 + x5 + x6, data = ms)

Residuals:
ALL 7 residuals are 0: no residual degrees of freedom!

Coefficients:
              Estimate Std. Error t value Pr(>|t|)
(Intercept)   567.4839         NA      NA       NA
x1            -12.7925         NA      NA       NA
x2            -24.3139         NA      NA       NA
x3             -7.0690         NA      NA       NA
x4             -0.6138         NA      NA       NA
x5            119.5010         NA      NA       NA
x6          -2355.0108         NA      NA       NA

Residual standard error: NaN on 0 degrees of freedom
Multiple R-squared:      1,     Adjusted R-squared:    NaN
F-statistic:   NaN on 6 and 0 DF,  p-value: NA