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

统计分析软件课程模拟试卷（2）(时间:年月日，共100分钟)48学时,3学分,闭卷,总分100分,占总评成绩50%注：此页不作答题纸，请将答案写在答题纸上一、填空题(本题20分，每小题2分)1.x=c(19,8,16,20,14)，则R命令mean(x)返回结果是:2.在R命令行键入setwd()的含义是3.x<-c(18,15,57,50,37)，则R命令sort(x)的输出结果是4.R命令temp=c(1,2,3),则rep(temp,c(1,2,3))的输出结果是5.R命令which(c(1,3,5,7)<7)的输出结果是6.R程序a<-c(1:4,seq(2,4,2));print(a)的输出结果是7.已知a<-1:100，取出向量a中偶数位置上的元素的R语句应为8.把数据集UGdata的行名改为空的R语句应为9.Python语句bb=[1,2,3,4];则bb.index(2)结果为10.Python语句字典dic={‘abc’:123,‘def’:456,’ghi’:789},删除一个键值‘abc’:123的语句为_____________二、单项选择题(本题20分，每小题2分)1.下面哪一个是绘制饼图的R命令()A.barplot(X)B.boxplot(X)C.pie(X)D.plot(X)2.table（x）命令的含义是（）

。

A、显示属性向量x的取值及频数

B、显示属性向量x的取值

C、显示向量x的频数

D、显示向量x取值的频率3.已知a<-c(1:5,7:10)，则R语言max(a[6:8]<-3:1)的结果是（）。A.1 B.3 C.9 D.104.若a<-matrix(1:12,c(3,4))，则>apply(a,2,sum)的运行结果为：A.222630B.6152433C.232731D.71625345.下列赋值语句错误的是（）。A.a<-1 B.a=1 C.A_1<-”1” D.1=a6.Python单行注释和多行注释分别用什么表示().A.######B.#C."""

"""D.???7.下面哪一个不是Python语言的合法命名：()A._AIB.IC.3_1D.tempStr8.foriinrange(0,3):print(i)上述Python程序的输出结果是：()A.0123B.12C.123D.0129.以下这段代码的执行结果是()a="alex"b=a.capitalizeprint(b)A.alexB.AlexC.ALEXD.以上结果都不对10.给出如下代码

TempStr="Hello

World"

可以输出“World”子串的是

A.

print(TempStr[-5:])

B.

print(TempStr[-5:0])C.

print(TempStr[-5:-1])D.

print(TempStr[-4:-1])三、简答题(本题20分，共4题，每小题5分)1.由1,2,…,16构成两个4x4的矩阵,其中矩阵A按列输入,矩阵B按行输入2.对题1中的矩阵A和B做如下运算:C=A+B,D=BA3.简述R语言的优点。4.试采用逆变法随机生成100个分布服从概率密度函数为fx=2x,0<x<1的随机数，写出生成对应随机数的四、分析题(本题15分，每一问5分)模拟产生统计学专业学生名单(学号区分)，记录回归分析、统计软件俩科成绩，然后进行统计分析。假设有90名学生，起始学号为1303160001，回归分析成绩为均匀分布随机数，都在70分以上。统计软件成绩为正态分布，平均成绩75，标准差为15。把正态分布中超过100分的成绩变成100分，且各科成绩取整。写出模拟产生上述成绩随机数的代码。写出把上述信息组合成数据框，并写到文本文件中(保存为“学号.csv”)的代码写出使用apply函数计算各科最高分和个人总分的代码。五、改错题(本题10分)小明用R语言编写了一个检验一个数字是不是3和5的公倍数的函数，fun<-function(x){if(x%3==0&x%5==0){print('即是3的倍数又是5的倍数')}else{print('不是3或5的倍数')}}请指出上述程序中的错误，并给出正确的写法。六、编程题(本题15分)编写R语言程序：输入一个文件"A.csv", A中每行包含若干数值.生成文件"B.txt", B文件中每行是A中对应行的数值的最大值。

试卷答案一、填空题（每题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","software")],1,sum)五、改错题（1