統(tǒng)計(jì)分析軟件 試題及答案 共3套

統(tǒng)計(jì)分析軟件課程模擬試卷（1）(時(shí)間:年月日，共100分鐘)48學(xué)時(shí),3學(xué)分,閉卷,總分100分,占總評(píng)成績(jī)50%注：此頁(yè)不作答題紙，請(qǐng)將答案寫在答題紙上一、填空題(本題20分，每小題2分)1.x=c(7,12,9,15,8,7,14)，則R命令median(x)返回結(jié)果是:2.在R命令行鍵入setwd("d:/R32")的含義是3.x<-c(23,42,15,26,37)，則R命令sort(x)的輸出結(jié)果是4.R命令temp=c(4,6,3),則rep(temp,3)的輸出結(jié)果是5.R命令any(c(1,3,5,7)>3)的輸出結(jié)果是6.R程序a<-c(1:3,seq(2));print(a)的輸出結(jié)果是7.已知a<-1:100，取出向量a中偶數(shù)位置上的元素的R表達(dá)式應(yīng)為8.現(xiàn)有R函數(shù)：color<-function(t)switch(t,r='red',g='green',b='blue')，則color('b')的運(yùn)行結(jié)果為9.Python中的可變數(shù)據(jù)類型有10.Python列表對(duì)象aList的值為[3,4,5,6,7,9,11,13]，那么aList[3:]得到的值是二、單項(xiàng)選擇題(本題20分，每小題2分)1.根據(jù)所采用的計(jì)量尺度不同，可以將統(tǒng)計(jì)數(shù)據(jù)分為（?）?? A.?分類數(shù)據(jù)、順序數(shù)據(jù)、間隔數(shù)據(jù)和比率數(shù)據(jù)? B.?原始數(shù)據(jù)與二手?jǐn)?shù)據(jù)?? C.?觀測(cè)數(shù)據(jù)與實(shí)驗(yàn)數(shù)據(jù)? D.?時(shí)序數(shù)據(jù)與橫截面數(shù)據(jù)2.關(guān)于R語言save.image命令，下面說法正確的是（）A.可以保存工作區(qū)對(duì)象B.可以保存工作區(qū)代碼C.可以同時(shí)保存工作區(qū)對(duì)象和代碼D.可以保存圖像3.已知a<-c(1:5,7:10)，則R語言max(a[6:8]<-3:1)的結(jié)果是（）。A.1 B.3 C.9 D.104.若a<-matrix(1:12,c(3,4))，則apply(a,1,function(x)x^2)的運(yùn)行結(jié)果為：A.[,1][,2][,3][1,]149[2,]162536[3,]496481[4,]100121144B.[,1][,2][,3][,4][1,]11649100[2,]42564121[3,]93681144C.[,1][,2][,3][,4][1,]14916[2,]25364964[3,]81100121144D.[,1][,2][,3][1,]12581[2,]436100[3,]949121[4,]16641445.對(duì)于下面的R函數(shù) new1<-function(a=10,b=5,c=2){ result<-a*b+c print(result) }則調(diào)用new1(2)的運(yùn)行結(jié)果為：A.22 B.12 C.52 D.426.Python語句"ab"+"c"*2的運(yùn)行結(jié)果是（）A.'abc2'B.'abcabc'C.'abcc'D.'ababcc'7.關(guān)于Python字符串下列說法錯(cuò)誤的是()A.字符應(yīng)該視為長(zhǎng)度為1的字符串B.字符串以\0標(biāo)志字符串的結(jié)束C.既可以用單引號(hào)，也可以用雙引號(hào)創(chuàng)建字符串D.在三引號(hào)字符串中可以包含換行回車等特殊字符8.關(guān)于Python內(nèi)存管理，下列說法錯(cuò)誤的是()A.變量不必事先聲明 B.變量無須先創(chuàng)建和賦值而直接使用C.變量無須指定類型 D.可以使用del釋放資源9.以下不能創(chuàng)建一個(gè)字典的語句是()A.dict1={} B.dict2={3:5}C.dict3={[1,2,3]:"uestc"} D.dict4={(1,2,3):"uestc"}10.調(diào)用以下函數(shù)返回的值()defmyfun():passA.0B.出錯(cuò)不能運(yùn)行C.空字符串D.None三、簡(jiǎn)答題(本題20分，共4題，每小題5分)1.向量x=c(7,NA,14,12,9,NA,9,15,NA,8)，編程實(shí)現(xiàn)將全部缺失值替換為緊鄰該缺失值后面的元素的值，如第1個(gè)NA的值用x[3]的值14替換。寫出對(duì)應(yīng)的R語句。2.Shiny是R中常見的交互式web應(yīng)用框架。寫出Shiny應(yīng)用程序app.R中的ui和server對(duì)象的主要概念或功能。3.試采用逆變法隨機(jī)生成100個(gè)分布服從概率密度函數(shù)為的隨機(jī)數(shù)，寫出生成對(duì)應(yīng)隨機(jī)數(shù)的R語句。4.闡述R語言公式y(tǒng)~0+x和y~x表示的意義(x為自變量，y為因變量)。四、分析題(本題15分)有兩組雌鼠，分別飼以高蛋白和低蛋白飼料，8周后記錄各鼠體重增加量如下#高蛋白組體重增量high<-c(134,146,104,119,124,161,107,83,113,129,97,123)#低蛋白組體重增量low<-c(70,118,101,85,107,132,94)x<-c(high,low)a<-factor(c(rep(1,12),rep(2,7))) #語句avar.test(x~a) #語句bt.test(high,low,paired=FALSE) #語句c1.語句a的作用是什么？(3分)2.語句b的作用是什么？如何解釋語句b得到的如下結(jié)果(6分)：F=1.0755,p-value=0.97883.語句c的作用是什么？如何解釋語句c得到的如下結(jié)果(6分)：t=1.9107，p-value=0.07821五、改錯(cuò)題(本題10分)下面R程序?qū)崿F(xiàn)打開data子目錄的"data.csv"文件,對(duì)該文件中的數(shù)據(jù)進(jìn)行處理后，將結(jié)果寫回"results.csv"文件。#readinputinput_data<-read.csv(data/data.csv)#getnumberofsamplesindatasample_number<-nrow(input_data)#generateresultsresults<-some_other_function(input_file,sample_number)#writeresultswrite.csv(data/results.csv,results)請(qǐng)指出上述程序中的錯(cuò)誤，并給出正確的寫法。六、編程題(本題15分)編寫R語言rmblanks函數(shù)，刪除給定字符串(mystr)首尾空格。如mystr="hello,world"，調(diào)用函數(shù)rmblanks(mystr)的結(jié)果應(yīng)為"hello,world"；mystr="IloveR"，調(diào)用函數(shù)rmblanks(mystr)的結(jié)果應(yīng)為"IloveR".

模擬試卷（1）答案一、填空題（每題2分，共20分）1.92.設(shè)定“d:/R32”為工作目錄34634634635.TRUE6.123127.a[seq(2,100,2)]8.‘blue’9.列表、字典10.[6,7,9,11,13]二、單項(xiàng)選擇題（每題2分，共20分）題號(hào)12345678910答案AABABCBBCD（無嚴(yán)格標(biāo)準(zhǔn)答案，以下內(nèi)容可供參考）三、簡(jiǎn)答題（20分，每題5分）1.x[which(is.na(x))]=x[which(is.na(x))+1]2.ui主要包括用戶界面,server主要包括后臺(tái)服務(wù)器運(yùn)行的有關(guān)函數(shù)。3.set.seed(123);u=runif(100);x=2*sqrt(u)4.y~x表示y對(duì)x進(jìn)行回歸，包括截距項(xiàng)，y-0+x,y對(duì)x進(jìn)行回歸，不包括截距項(xiàng)四、分析題（15分）1.（3分）表示把語句數(shù)據(jù)進(jìn)行分組，第一組賦為1，第二組賦為22．（6分）方差齊性檢驗(yàn)。結(jié)果表示，不能拒絕兩組方差相等的原假設(shè)。3.（6分） T檢驗(yàn)。結(jié)果表示，在alpha=0.05的置信水平下，不能拒絕原假設(shè)，即兩組體重增加量不顯著。五、改錯(cuò)題（10分）存在兩處錯(cuò)誤：1、input_data<-read.csv(“data/data.csv”)（5分）2、write.csv(results,“data/results.csv”)(5分)六、編程題（15分）mystr="hello,world"rmblanks<-function(mystr){mystr=strsplit(mystr,split="")n=length(mystr[[1]])i=0for(min1:n){if(mystr[[1]][m]=='')i=i+1elsebreak}j=0for(minn:1){if(mystr[[1]][m]=='')j=j+1elsebreak}paste((mystr[[1]][(i+1):(n-j)]),collapse='')}rmblanks(mystr)統(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īng)為8.把數(shù)據(jù)集UGdata的行名改為空的R語句應(yīng)為9.Python語句bb=[1,2,3,4];則bb.index(2)結(jié)果為10.Python語句字典dic={‘a(chǎn)bc’:123,‘def’:456,’ghi’:789},刪除一個(gè)鍵值‘a(chǎn)bc’:123的語句為_____________二、單項(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語言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.下列賦值語句錯(cuò)誤的是（）。A.a<-1 B.a=1 C.A_1<-”1” D.1=a6.Python單行注釋和多行注釋分別用什么表示().A.######B.#C."""

"""D.???7.下面哪一個(gè)不是Python語言的合法命名：()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ōu)點(diǎn)。4.試采用逆變法隨機(jī)生成100個(gè)分布服從概率密度函數(shù)為fx四、分析題(本題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語言編寫了一個(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語言程序：輸入一個(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語言有一個(gè)強(qiáng)大的，容易學(xué)習(xí)的語法，有許多內(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ò)題（10分）存在兩處錯(cuò)誤：1、%應(yīng)改成%%（5分）2、else挪到上一行的花括號(hào)｝后面(5分)六、編程題（15分）mydata=read.csv(“A.csv”)b<-c(rep(0,dim(mydata[1])))for(iin1:dim(mydata)[1])b[i]=max(mydata[1,])write.csv(“B.txt”)統(tǒng)計(jì)分析軟件課程模擬試卷（3）(時(shí)間:年月日，共100分鐘)48學(xué)時(shí),3學(xué)分,閉卷,總分100分,占總評(píng)成績(jī)50%注：此頁(yè)不作答題紙，請(qǐng)將答案寫在答題紙上一、填空題(本題20分，每小題2分)1.x=c(7,12,9,15,8,7,14,16)，則R命令median(x)返回結(jié)果是:2.在R命令行鍵入rm()的含義是3.x<-c(23,42,25,25,37)，則R命令rank(x)的輸出結(jié)果是4.R命令2*c(1,NA,2)的輸出結(jié)果是5.R語句age=c(89,20,10,66);c('A','B')[(age>65)+1];的輸出結(jié)果是6.在R循環(huán)語句中，__________語句的作用是提前結(jié)束本層循環(huán)。7.在Python中__________表示空類型。8.Python中用pip工具升級(jí)科學(xué)計(jì)算擴(kuò)展庫(kù)numpy的完整命令是______________9.Python語句aa=[1,2,3,4];aa.pop();則aa.index(3)結(jié)果為10.Python語句a=2；b=14；c=b**a；則c的值為：二、單項(xiàng)選擇題(本題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中的偶數(shù)位置上的元素，表達(dá)式應(yīng)為（）。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)的運(yùn)行結(jié)果為()A.222630 B.6152433C.232731 D.71625345.?R語言中，為變量修改元素名稱的函數(shù)是()A.changeName B.ModifyNameC.name D.names6.有如下兩個(gè)R語言函數(shù)： g<-function(){ x<-2} f<-function(){ x<-1 g() return(x)}則f()的運(yùn)行結(jié)果是（）A.1B.2C.程序報(bào)錯(cuò)D.以上均不正確7.R語言中，下列命令中哪一條不能實(shí)現(xiàn)：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環(huán)境創(chuàng)建Python腳本文件時(shí)，需要將文件編碼格式設(shè)置為（）。A.UNICODEB.ANSIC.GBKD.UTF-89.已知在?Python腳本文件N.py中有函數(shù)調(diào)用“A.B.C.d()”，則import語句的正確寫法是（）。A.importA.B.C.dB.importA.B.CC.fromA.B.CimportdD.fromA.BimportC10.關(guān)于Python中的函數(shù)，以下描述錯(cuò)誤的是（）。A．函數(shù)能完成特定的功能，對(duì)函數(shù)的使用不需要了解函數(shù)內(nèi)部實(shí)現(xiàn)原理，只要了解函數(shù)的輸入輸出方式即可。B．使用函數(shù)的主要目的是減低編程難度和代碼重用。C．Python使用del保留字定義一個(gè)函數(shù)。D．函數(shù)是一段具有特定功能的語句組。三、簡(jiǎn)答題(本題20分，共4題，每小題5分)1.用R函數(shù)rep()構(gòu)造一個(gè)向量x,它由5個(gè)3，10個(gè)2，98個(gè)1構(gòu)成，寫出對(duì)應(yīng)的R語句。2.R語言中表述概率分布的函數(shù)前分別加有d、p、q、r四個(gè)前綴，分別表示該分布的什么功能？3.R語言中，對(duì)lm()函數(shù)返回的對(duì)象使用plot()函數(shù)可生成評(píng)價(jià)模型擬合情況的四幅圖形，請(qǐng)簡(jiǎn)述這些圖形的主要作用。4.簡(jiǎn)述Python中元組、列表和字典的區(qū)別。四、分析題(本題20分)用Pearson擬合優(yōu)度卡方檢驗(yàn)驗(yàn)證學(xué)生成績(jī)是否服從正態(tài)分布，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擬合優(yōu)度卡方檢驗(yàn)的基本思想是什么?（5分）2.代碼A的主要功能是什么？（5分）3．代碼B的主要功能是什么，為什么要這么處理？（5分）4．代碼C的運(yùn)行結(jié)果如下：data:AX-squared=8.3,df=3,p-value=0.04據(jù)此，你的結(jié)論是什么？（5分）五、改錯(cuò)題(本題10分)下面R程序用循環(huán)實(shí)現(xiàn)求x1，若x1達(dá)到允許誤差范圍內(nèi)停止循環(huán)。x0<-1;tol<-1e-8while{x1<-computeEstimate()#計(jì)算x1值的函數(shù)if(abs(x1-x0)<tol){continue}else{