統(tǒng)計(jì)分析軟件課程模擬試卷（2）(時(shí)間:年月日，共100分鐘)48學(xué)時(shí),3學(xué)分,閉卷,總分100分,占總評(píng)成績(jī)50%注：此頁(yè)不作答題紙，請(qǐng)將答案寫在答題紙上一、填空題(本題20分，每小題2分)1.x=c(19,8,16,20,14)，則R命令mean(x)返回結(jié)果是:2.在R命令行鍵入setwd()的含義是3.x<-c(18,15,57,50,37)，則R命令sort(x)的輸出結(jié)果是4.R命令temp=c(1,2,3),則rep(temp,c(1,2,3))的輸出結(jié)果是5.R命令which(c(1,3,5,7)<7)的輸出結(jié)果是6.R程序a<-c(1:4,seq(2,4,2));print(a)的輸出結(jié)果是7.已知a<-1:100，取出向量a中偶數(shù)位置上的元素的R語(yǔ)句應(yīng)為8.把數(shù)據(jù)集UGdata的行名改為空的R語(yǔ)句應(yīng)為9.Python語(yǔ)句bb=[1,2,3,4];則bb.index(2)結(jié)果為10.Python語(yǔ)句字典dic={‘a(chǎn)bc’:123,‘def’:456,’ghi’:789},刪除一個(gè)鍵值‘a(chǎn)bc’:123的語(yǔ)句為_____________二、單項(xiàng)選擇題(本題20分，每小題2分)1.下面哪一個(gè)是繪制餅圖的R命令()A.barplot(X)B.boxplot(X)C.pie(X)D.plot(X)2.table（x）命令的含義是（）

。

A、顯示屬性向量x的取值及頻數(shù)

B、顯示屬性向量x的取值

C、顯示向量x的頻數(shù)

D、顯示向量x取值的頻率3.已知a<-c(1:5,7:10)，則R語(yǔ)言max(a[6:8]<-3:1)的結(jié)果是（）。A.1 B.3 C.9 D.104.若a<-matrix(1:12,c(3,4))，則>apply(a,2,sum)的運(yùn)行結(jié)果為：A.222630B.6152433C.232731D.71625345.下列賦值語(yǔ)句錯(cuò)誤的是（）。A.a<-1 B.a=1 C.A_1<-”1” D.1=a6.Python單行注釋和多行注釋分別用什么表示().A.######B.#C."""

"""D.???7.下面哪一個(gè)不是Python語(yǔ)言的合法命名：()A._AIB.IC.3_1D.tempStr8.foriinrange(0,3):print(i)上述Python程序的輸出結(jié)果是：()A.0123B.12C.123D.0129.以下這段代碼的執(zhí)行結(jié)果是()a="alex"b=a.capitalizeprint(b)A.alexB.AlexC.ALEXD.以上結(jié)果都不對(duì)10.給出如下代碼

TempStr="Hello

World"

可以輸出“World”子串的是

A.

print(TempStr[-5:])

B.

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

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

print(TempStr[-4:-1])三、簡(jiǎn)答題(本題20分，共4題，每小題5分)1.由1,2,…,16構(gòu)成兩個(gè)4x4的矩陣,其中矩陣A按列輸入,矩陣B按行輸入2.對(duì)題1中的矩陣A和B做如下運(yùn)算:C=A+B,D=BA3.簡(jiǎn)述R語(yǔ)言的優(yōu)點(diǎn)。4.試采用逆變法隨機(jī)生成100個(gè)分布服從概率密度函數(shù)為fx=2x,0<x<1的隨機(jī)數(shù)，寫出生成對(duì)應(yīng)隨機(jī)數(shù)的四、分析題(本題15分，每一問5分)模擬產(chǎn)生統(tǒng)計(jì)學(xué)專業(yè)學(xué)生名單(學(xué)號(hào)區(qū)分)，記錄回歸分析、統(tǒng)計(jì)軟件倆科成績(jī)，然后進(jìn)行統(tǒng)計(jì)分析。假設(shè)有90名學(xué)生，起始學(xué)號(hào)為1303160001，回歸分析成績(jī)?yōu)榫鶆蚍植茧S機(jī)數(shù)，都在70分以上。統(tǒng)計(jì)軟件成績(jī)?yōu)檎龖B(tài)分布，平均成績(jī)75，標(biāo)準(zhǔn)差為15。把正態(tài)分布中超過100分的成績(jī)變成100分，且各科成績(jī)?nèi)≌?。寫出模擬產(chǎn)生上述成績(jī)隨機(jī)數(shù)的代碼。寫出把上述信息組合成數(shù)據(jù)框，并寫到文本文件中(保存為“學(xué)號(hào).csv”)的代碼寫出使用apply函數(shù)計(jì)算各科最高分和個(gè)人總分的代碼。五、改錯(cuò)題(本題10分)小明用R語(yǔ)言編寫了一個(gè)檢驗(yàn)一個(gè)數(shù)字是不是3和5的公倍數(shù)的函數(shù)，fun<-function(x){if(x%3==0&x%5==0){print('即是3的倍數(shù)又是5的倍數(shù)')}else{print('不是3或5的倍數(shù)')}}請(qǐng)指出上述程序中的錯(cuò)誤，并給出正確的寫法。六、編程題(本題15分)編寫R語(yǔ)言程序：輸入一個(gè)文件"A.csv",?A中每行包含若干數(shù)值.生成文件"B.txt",?B文件中每行是A中對(duì)應(yīng)行的數(shù)值的最大值。

試卷答案一、填空題（每題2分，共20分）1.15.42.設(shè)置工作目錄31223335.1236.1234247.a[seq(2,100,2)]8.rownames(UGdata)<-NULL9.110.deldic['abc']二、單項(xiàng)選擇題（每題2分，共20分）題號(hào)12345678910答案CABBDCCDBA（無嚴(yán)格標(biāo)準(zhǔn)答案，以下內(nèi)容可供參考）三、簡(jiǎn)答題（20分，每題5分）1.A=matix(1:16nrow=4);B=matix(1:16,mow=4,byrow=T);2.C=A+B:D=A%*%B3.優(yōu)點(diǎn)：免費(fèi)，永遠(yuǎn)正版，資源公開(不是黑匣子)，可以在UNIX,Windows和MacosX上運(yùn)行，R有優(yōu)秀的內(nèi)在幫助系統(tǒng)，R有優(yōu)秀的畫圖功能，學(xué)生能夠輕松地轉(zhuǎn)到商業(yè)支持的S-Plus程序；R語(yǔ)言有一個(gè)強(qiáng)大的，容易學(xué)習(xí)的語(yǔ)法，有許多內(nèi)在的統(tǒng)計(jì)函數(shù)（每答對(duì)一點(diǎn)的一分，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="學(xué)號(hào).csv")3.（5分） high<-apply(grade[c("regression","software")],2,max)s.sum<-apply(grade[c("regression","software")],1,sum)五、改錯(cuò)題（1