class(mod.iris) [1]"mlm""1m" >mod.iris Call: 1m(formula cbind(Sepal.Length,Sepal.Width,Petal.Length,Petal.Width) Species,data iris) Coefficients: Sepal.Length Sepal.Width Petal.Length Petal.Width (Intercept) 5.006 3.428 1.462 0.246 Speciesversicolor 0.930 -0.658 2.798 1.080 Speciesvirginica 1.582 -0.454 4.090 1.780 summary(mod.iris) Response Sepal.Length Call: lm(formula Sepal.Length Species,data iris) Residuals: Min 10 Median 30 Max -1.688-0.329-0.0060.3121.312 Coefficients: Estimate Std.Error t value Pr(>tl) (Intercept) 5.0060 0.0728 68.76<2e-16 Speciesversicolor 0.9300 0.1030 9.038.8e-16 Speciesvirginica 1.5820 0.1030 15.37<2e-16 Residual standard error:0.515 on 147 degrees of freedom Multiple R-squared:0.619, Adjusted R-squared:0.614 F-statistic:119 on 2 and 147 DF,p-value:<2e-16 Response Sepal.Width Ca11: lm(formula Sepal.Width Species,data iris) Residuals: Min 10 Median 30 Max -1.128-0.2280.0260.2260.972 Coefficients: Estimate Std.Error t value Pr(>Itl) 7> class(mod.iris) [1] "mlm" "lm" > mod.iris Call: lm(formula = cbind(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) ~ Species, data = iris) Coefficients: Sepal.Length Sepal.Width Petal.Length Petal.Width (Intercept) 5.006 3.428 1.462 0.246 Speciesversicolor 0.930 -0.658 2.798 1.080 Speciesvirginica 1.582 -0.454 4.090 1.780 > summary(mod.iris) Response Sepal.Length : Call: lm(formula = Sepal.Length ~ Species, data = iris) Residuals: Min 1Q Median 3Q Max -1.688 -0.329 -0.006 0.312 1.312 Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) 5.0060 0.0728 68.76 < 2e-16 Speciesversicolor 0.9300 0.1030 9.03 8.8e-16 Speciesvirginica 1.5820 0.1030 15.37 < 2e-16 Residual standard error: 0.515 on 147 degrees of freedom Multiple R-squared: 0.619, Adjusted R-squared: 0.614 F-statistic: 119 on 2 and 147 DF, p-value: <2e-16 Response Sepal.Width : Call: lm(formula = Sepal.Width ~ Species, data = iris) Residuals: Min 1Q Median 3Q Max -1.128 -0.228 0.026 0.226 0.972 Coefficients: Estimate Std. Error t value Pr(>|t|) 7