19：一页多图（par()） Par(mfrow=c(2,2))
20：对一批涂料进行研究，确定搅拌速度对杂质含量的影响，数据如下，试进行回归分析 表：搅拌速度对涂料中杂质的影响
转速 20 Rpm 杂质率 % 8.4 22 9.5 24 11.8 26 10.4 28 13.3 30 14.8 32 13.2 34 14.7 36 16.4 38 16.5 40 18.9 42 18.5 #将以下代码粘贴到编辑器中，另存为regression.r文件 Rate<-c(20,22,24,26,28,30,32,34,36,38,40,42)
Impurity<-c(8.4,9.5,11.8,10.4,13.3,14.8,13.2,14.7,16.4,16.5,18.9,18.5) Plot(impurity~rate) Reg<-lm(impurity~rate) Abline(reg,col=”red”) Summary(reg) 三种运行方式
1 通过source()函数运行 Source(“D:/regression.r”) 2 通过R搅拌编辑器运行
路径：RGui>File>Open Scrip #Ctrl+R运行 3 直接粘贴到R控制台 Ctrl+c，Ctrl+v