多元回归R案例教案.ppt

棉花的纤维强力
13级统计学
棉纤维的简介
棉纤维是我国纺织工业的主要原料,主要成份是纤维素,%、%、%。棉纤维的聚合度在6000~11000间,其组成与长度、线密度、成熟度有关。棉纤维长度是指纤维伸直时两端间的距离,是棉纤维的重要物理性质之一。棉纤维的长度主要由棉花品种、生长条件、初加工等因素决定。棉纤维长度与成纱质量和纺纱工艺关系密切。棉纤维长度长,整齐度好,短绒少,则成纱强力高,条干均匀,纱线表面光洁,毛羽少。
棉纤维的线密度是指纤维的粗细程度,是棉纤维的重要品质指标之一,它与棉纤维的成熟程度、强力大小密切相关,且还是决定纺纱特数与成纱品质的主要因素之一,纤维较细,则成纱强力高,纱线条好。
棉纤维的成熟度是指纤维细胞壁的加厚程度,即棉纤维生长成熟的程度正常成熟的棉纤维,截面粗、强度高、转曲多、弹性好、有丝光、纤维间抱合力大、成纱强力也高。
棉纤维的强度是纤维具有纺纱性能和使用价值的必要条件之一,纤维强度高,则成纱强度也高。
案例分析
某地区所产原棉的纤维强力Y与纤维的公制支数X1(指单位质量(g)的纤维所具有的长度(m))、纤维成熟度X2有关,数据如下:
序号
Y
X1
X2
1

5415

2

5700

3

5674

4

5968

5

6165

6

5929

7

7505

8

5920

9

7646

10

6556

11

6475

12

5907

13

5697

14

6618

R程序
library(foreign)
w=("" )
#建立以Y为因变量,X1、X2为自变量做线性回归
A=lm(Y~X1+X2,data=w)
summary(A)
输出结果:Call:
lm(formula = Y ~ X1 + X2, data = w)
Residuals:
Min 1Q Median 3Q Max
- - -
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) +00 +00 ***
X1 --04 -05 - ***
X2 -01 -01
Signif. codes: 0 ‘***’ ‘**’ ‘*’ ‘.’ ‘’ 1
残差标准差、决定系数及回归方程的显著性检验结果:
Residual standard error: on 11 degrees of freedom
Multiple R-squared: , Adjusted R-squared:
F-statistic: on 2 and 11 DF, p-value: -06
,且
该回归方程是显著的。
方差分析
> anova(A)
Analysis of Variance Table
Response: Y
Df Sum Sq Mean Sq F value Pr(>F)
X1 1 -07 ***
X2 1
Residuals 11
---
Signif. codes: 0 ‘***’ ‘**’ ‘*’ ‘.’ ‘’ 1
标准化数据回归分析及散点图
w=(w)
stdx=scale(w[,2:4],center=TRUE,scale=TRUE)
stdx=(stdx)
B=lm(Y~X1+X2,data=stdx)
summary(B)
attach(stdx)
par(mfrow=c(2,2))
plot(Y~X1)
abline(lm(Y~X1))
plot