统计分析软件模拟试题三及答案

统计分析软件课程模拟试卷（3）(时间:年月日，共100分钟)48学时,3学分,闭卷,总分100分,占总评成绩50%注：此页不作答题纸，请将答案写在答题纸上一、填空题(本题20分，每小题2分)1.x=c(7,12,9,15,8,7,14,16)，则R命令median(x)返回结果是:2.在R命令行键入rm()的含义是3.x<-c(23,42,25,25,37)，则R命令rank(x)的输出结果是4.R命令2*c(1,NA,2)的输出结果是5.R语句age=c(89,20,10,66);c('A','B')[(age>65)+1];的输出结果是6.在R循环语句中，__________语句的作用是提前结束本层循环。7.在Python中__________表示空类型。8.Python中用pip工具升级科学计算扩展库numpy的完整命令是______________9.Python语句aa=[1,2,3,4];aa.pop();则aa.index(3)结果为10.Python语句a=2；b=14；c=b**a；则c的值为：二、单项选择题(本题20分，每小题2分)1.R语言中，下列（）不可以作为变量名。A.1a2b B.a1b2 C.a_b D.a.b2.下列R语句中（）不能生成向量（[1]1234512345）。A.rep(1:5,2) B.sequence(rep(5,2))C.1:10%%6D.(0:9%%5)+13.已知a<-1:100，若要取出向量a中的偶数位置上的元素，表达式应为（）。A.a[2:100] B.a/50C.a[seq(2,100,by=2)] D.a/24.若a<-matrix(1:12,c(3,4))，则>apply(a,1,sum)的运行结果为()A.222630 B.6152433C.232731 D.71625345.‎R语言中，为变量修改元素名称的函数是()A.changeName B.ModifyNameC.name D.names6.有如下两个R语言函数： g<-function(){ x<-2} f<-function(){ x<-1 g() return(x)}则f()的运行结果是（）A.1B.2C.程序报错D.以上均不正确7.R语言中，下列命令中哪一条不能实现：A.X<-matrix(1:10,nrow=2,ncol=5);Y=X-XB.X<-matrix(1:10,nrow=2,ncol=5);Y=X%*%XC.X<-matrix(1:10,nrow=2,ncol=5);Y=X*XD.X<-matrix(1:10,nrow=2,ncol=5);Y=X+X8.‎Python3.x环境创建Python脚本文件时，需要将文件编码格式设置为（）。A.UNICODEB.ANSIC.GBKD.UTF-89.已知在‎Python脚本文件N.py中有函数调用“A.B.C.d()”，则import语句的正确写法是（）。A.importA.B.C.dB.importA.B.CC.fromA.B.CimportdD.fromA.BimportC10.关于Python中的函数，以下描述错误的是（）。A．函数能完成特定的功能，对函数的使用不需要了解函数内部实现原理，只要了解函数的输入输出方式即可。B．使用函数的主要目的是减低编程难度和代码重用。C．Python使用del保留字定义一个函数。D．函数是一段具有特定功能的语句组。三、简答题(本题20分，共4题，每小题5分)1.用R函数rep()构造一个向量x,它由5个3，10个2，98个1构成，写出对应的R语句。2.R语言中表述概率分布的函数前分别加有d、p、q、r四个前缀，分别表示该分布的什么功能？3.R语言中，对lm()函数返回的对象使用plot()函数可生成评价模型拟合情况的四幅图形，请简述这些图形的主要作用。4.简述Python中元组、列表和字典的区别。四、分析题(本题20分)用Pearson拟合优度卡方检验验证学生成绩是否服从正态分布，R代码如下:X<-c(25,45,50,54,55,61,64,68,72,75,75,78,79,81,83,84,84,84,85,86,86,86,87,89,89,89,90,91,91,92,100)A<-table(cut(X,br=c(0,69,79,89,100)))#代码Ap<-pnorm(c(70,80,90,100),mean(X),sd(X))pnew<-c(p[1],p[2]-p[1],p[3]-p[2],1-p[3])#代码Bchisq.test(A,p=pnew)#代码C1.Pearson拟合优度卡方检验的基本思想是什么?（5分）2.代码A的主要功能是什么？（5分）3．代码B的主要功能是什么，为什么要这么处理？（5分）4．代码C的运行结果如下：data:AX-squared=8.3,df=3,p-value=0.04据此，你的结论是什么？（5分）五、改错题(本题10分)下面R程序用循环实现求x1，若x1达到允许误差范围内停止循环。x0<-1;tol<-1e-8while{x1<-computeEstimate()#计算x1值的函数if(abs(x1-x0)<tol){continue}else{x0<-x1}}请指出上述程序中的错误(1-2处)，并给出正确的写法。六、编程题(本题10分)应用逆变换方法生成1000个随机数服从下列概率密度函数，写出对应的R代码。

试卷答案一、填空题（每题2分，共20分）1.15.42.设置工作目录31223335.1236.1234247.a[seq(2,100,2)]8.rownames(UGdata)<-NULL9.110.deldic['abc']二、单项选择题（每题2分，共20分）题号12345678910答案CABBDCCDBA（无严格标准答案，以下内容可供参考）三、简答题（20分，每题5分）1.A=matix(1:16nrow=4);B=matix(1:16,mow=4,byrow=T);2.C=A+B:D=A%*%B3.优点：免费，永远正版，资源公开(不是黑匣子)，可以在UNIX,Windows和MacosX上运行，R有优秀的内在帮助系统，R有优秀的画图功能，学生能够轻松地转到商业支持的S-Plus程序；R语言有一个强大的，容易学习的语法，有许多内在的统计函数（每答对一点的一分，5分为止，言之有理即可）4.set.seed(123);u=runif(100);x=sqrt(u,2)（最后一步3分，前两步各一分）四、分析题（15分）1.（5分）set.seed(1234)（1分）num<-seq(1:90)+1303160000regression<-round(runif(90,min=70,max=100))software<-round(rnorm(90,mean=75,sd=15))software[which(software>100)]<-100（4分）2．（5分）grade<-data.frame(num,regression,software)write.csv(grade,file="学号.csv")3.（5分） high<-apply(grade[c("regression","software")],2,max)s.sum<-apply(grade[c("regression"