程序设计语言考试试卷A卷

1、广东工业大学考试试卷（A卷） 课程名称: R程序设计语言 试卷满分 100 分一、 填空和选择（每小题分，共50分）1.R软件命令窗口的命令提示符为 > 2.R软件复制编辑快捷组合键为Ctrl+C3.下列变量名中的A是合法变量（）char_1，.data_2,x_j（）x*y，a.1（）xy，a1234 （）end， 4.已知x为一个向量，计算其正弦函数的运算为C（）SEC(X) （）SIN(x) （）sin(x) （）secx5.已知x2(0:3)，则命令2*x返回的结果为2 4 8 166.命令2*3:7返回结果为 6 8 10 12 14 7.命令rep(c(1,3),each=3

2、)返回结果为1 1 1 3 3 38.命令sort(c(2,10,7,9,5)返回的结果为2 5 7 9 109.命令append(2:5,10:12,after=3)返回的结果为 2 3 4 10 11 12 5 10.命令matrix(2:7,nrow=2,byrow=F)返回的结果为 ,1 ,2 ,31, 2 4 62, 3 5 7 11.已知矩阵，则命令A%*%A返回的结果为 ,1 ,2 ,3 ,41, 90 202 314 4262, 100 228 356 4843, 110 254 398 5424, 120 280 440 600 12.已知矩阵，则命令dim(B)返回的结果为

3、3 413. 已知矩阵，则命令rowSums(A)返回的结果为10 1014. 已知矩阵，则命令apply(A,2,sum)返回的结果为3 5 7 9 15. 命令rbind(1:3,1:4)返回的结果为 ,1 ,2 ,3 ,41, 1 2 3 12, 1 2 3 416.执行命令b=list(name="Fred",wife="Mary",no.children=3,child.ages=c(4,7,9)后,则命令b$name 返回的结果为"Fred"17.执行命令b=list(name="Fred",wife=

4、"Mary",no.children=3,child.ages=c(4,7,9)后,则命令length(b)返回的结果为 4 18.执行命令xx=array(1:24,c(3,4,2)后,则命令xx2,1:3,2返回的结果为 , , 1 ,1 ,2 ,3 ,41, 1 4 7 102, 2 5 8 113, 3 6 9 12, , 2 ,1 ,2 ,3 ,41, 13 16 19 222, 14 17 20 233, 15 18 21 24 19.执行命令a=data.frame(class=c(1,1,2,2,3,3,3),sex=c("女",&quo

5、t;男","男","女","女","女","男"),score=c(80,85,92,76,61,95,83)后,则命令a$scorea2= "男"返回的结果为 85 92 83 20.已知score=c(80,85,92,76,61,95,83),则命令 stem(score) 返回score的茎叶图21.已知变量x=c(2,3),则执行命令x5<-5后变量x的结果为 2 3 NA NA 5 22.命令paste("x",1:5,sep=

6、"")返回的结果为 “x1” “x2” “x3” “x4” “x5” 23.已知变量x=(1:10)+2,则命令x1:5返回的结果为 3 4 5 6 7 24.已知,则命令solve(A,b)返回的结果为 ,11, 12, 1 25.命令 eigen(A) 返回矩阵A的特征值和特征向量二、 看程序写结果（每小题4分，共20分）1. 程序如下：x=1:30y=xx>25-20 执行上述程序后，则y返回的结果为 6 7 8 9 10 2.程序如下：x=1:3y=c(x,5,x,1:2)执行上述程序后，则y返回的结果为 1 2 3 5 1 2 3 1 2 3.程序如下：x=

7、matrix(1:6,2,3) y=x-1,执行上述程序后，则y返回的结果为 2 4 6 4.程序如下：x=1:4y=2:5+2z=data.frame(INDEX=x,VALUE=y)执行上述程序后，则z返回的结果为 INDEX VALUE1 1 42 2 53 3 64 4 7 5.程序如下：L1=list(x=1:6,y=matrix(1:4,nrow=2)z=L1$y+2执行上述程序后，则z返回的结果为 ,1 ,21, 3 52, 4 6 三、在以下各题中，写出相应的命令和程序（每小题5分，共20分）1.用函数rep()构造一个向量x,它由5个3，10个2，98个1构成x<-re

8、p(c(3,2,1),c(5,10,98)2.自己编写一个函数，求数据y=(y1,y2,yn)的均值(mean)、标准差(sd)、偏度(k3.linear)与峰度(kurtosis) 包含在程序包moments里library(“moments”)Myfirst<-function(y) for ( i in 1:length(y) a<-mean(yi)b<-sd(yi)c<-k3.linear(yi)d<-kurtosis(yi) z<-c(a,b,c,d);z3.鸡兔同笼问题：鸡和兔子关在一个笼子里，已知共有头36个，脚100个，编程求笼内关了多少只兔

9、子和多少只鸡？Mysecond<-function(x,y) a<-matrix(c(1,1,2,4),2,2,byrow=TRUE)b<-matrix(c(x,y),2,1)solve(a,b)4猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第10天早上想再吃时，见只剩一个桃子了。编程求第一天共摘多少桃子momo<-function(x) y=1for (i in 1:(x-1) y<-2*(y+1) y四、综合题（每小题5分，共10分）

10、10位同学的姓名、性别、年龄、身高、体重数据如下：Name Sex Age Height WeightAlice F 13 56.5 84.0Sandy F 11 51.3 50.5Sharon F 15 62.5 112.5Tammy F 14 62.8 102.5Alfred M 14 69.0 112.5Duke M 14 63.5 102.5Guido M 15 67.0 133.0Robert M 12 64.8 128.0Thomas M 11 57.5 85.0William M 15 66.5 112.01. 用数据框的形式读入数据，数据框的名称为my.classmy.class<-edit(data.frame()输入数据2. 将上述数据写成( write.table() )一个纯文本的文件（文件名为class.txt）,并用函数read.table()读取文件中的身高和体重数据write.table(my.c