统计建模与R软件课后答案.pdfVIP

第二章 x-c(1,2,3);y-c(4,5,6) e-c(1,1,1) z-2*x+y+e;z [1] 7 10 13 z1-crossprod(x,y);z1 [,1] [1,] 32 z2-outer(x,y);z2 [,1] [,2] [,3] [1,] 4 5 6 [2,] 8 10 12 [3,] 12 15 18 (1) A-matrix(1:20,nrow=4);B-matrix(1:20,nrow=4,byrow=T) C-A+B;C (2) D-A%*%B;D (3) E-A*B;E (4) F-A[1:3,1:3] (5) G-B[,-3] x-c(rep(1,5),rep(2,3),rep(3,4),rep(4,2));x H-matrix(nrow=5,ncol=5) for (i in 1:5) + for(j in 1:5) + H[i,j]-1/(i+j-1) （1） det(H) （2） solve(H) （3） eigen(H) studentdata( 姓名 =c( 张三 , 李四 , 王五 , 赵六 , 丁一 ) + , 性 别 =c( 女 , 男 , 女 , 男 , 女 ), 年 龄 =c(14,15,16,14,15), + 身 高 =c(156,165,157,162,159), 体 重 =c(42,49,,52,)) (studentdata,file=) (studentdata,file=) count-function(n) { if (n=0) print( 要求输入一个正整数 ) else{ repeat{ if (n%%2==0) n-n/2 else n-(3*n+1) if(n==1)break } print( 运算成功 )} } 第三章 首先将数据录入为 x 。利用 data_outline 函数。如下 data_outline(x) hist(x,freq=F) lines(density(x),col=red) y-min(x):max(x) lines(y,dnorm(y,,,col=blue) plot(ecdf(x),verticals=T,=F) lines(y,pnorm(y,,) qqnorm(x) qqline(x) stem(x) boxplot(x) fivenum(x) (x) (x,pnorm,, One-sample Kolmogorov-Smirnov test data: x D = , p-value = alternative hypothesis: two-sided Warning message: In (x, pnorm, , : ties should not be present for the Kolmogorov-Smirnov test 这里出现警告信息是因为 ks 检验要求样本数据是连续的，不允许出 现重复值 x1-c(2,4,3,2,4,7,7,2,2,5,4);x2-c(5,6,8,5,10,7,12,12,6,6) ;x3-c(7,11,6,6,7,9,5,5,10,6,3,10) boxplot(x1,x2,x3,names=c(x1,x2,x3),vcol=c(2,3,4)) windows() plot(factor(c(rep(1,length(x1)),rep(2,length(x2)),rep(3,le ngth(x3)))),c(x1,x2,x3)) rubber(x1=c(65,70,70,69,66,67,68,72,66,68), +x2=c(45,45,48,46,50,46,47,43,47,48),x3=c,,,,,,,,,) plot(rubber) 具体有相关关系的两个变量的散点图要么是从左下角到右上角