中国大学moocr语言慕课答案大全-k8凯发

k8凯发-凯发官网入口历年真习题 正文

第一章：r简介

第一章测试

1、下列是“取余”操作运算符的是（）。
    a、%
    b、%%
    c、%/%
    d、/

2、将数据框x中含有的na值换成0，使用的函数是（）。
    a、x <-na.omit(x)
    b、x[,is.na(x)] <- 0
    c、x[is.na(x)] <- 0
    d、is.na(x) <- 0

3、使用代码 x <- 1024；length(x) 后，得到的x的长度为4。

4、利用list.files()函数可以读取当前目录下的文件夹。

5、可以把向量、矩阵、数据框、列表、数组放在一个列表里。

第一章作业

1、1.1 练习向量 1）怎么生成向量：“金融1601甲、金融1601乙、金融1602甲、金融1602乙、金融1603甲、金融1603乙、金融1604甲、金融1604乙” 2）随机产生一个包括负数和正数的向量，负数采用1-负数替代，即-3变成4，正数用1 正数替代，即2变成3，怎么编写代码？

2、1.2 练习矩阵 1）产生随机数，形成矩阵，负的1-该数，正的1加该数 2）如何取矩阵上三角和下三角矩阵 3）产生随机数（有正有负），形成矩阵，矩阵中小于0的用na替代 4）把矩阵中na用0替代

第二章：r基本操作

第二章测试

1、两个数据框进行行合并，哪个函数不能用
    a、cbind()
    b、rbind()
    c、merge()
    d、reshape()

2、输出csv格式的文件，用一下哪个函数
    a、write.table()
    b、read.csv()
    c、write.csv()
    d、write.delim()

3、如何用as.date()函数将'2-2013-1'转化成"2013-01-02"
    a、as.date('2-2013-1',format='%d-%y-%m')
    b、as.date('2-2013-1',format='%d-%y-%m')
    c、as.date('2-2013-1',format='%m-%y-%d')
    d、as.date('2-2013-1',format='%y-%m-%d')

4、有一列数据x <- c(3，6，7，4，1)，order(x,decreasing=t)输出的结果是()
    a、1 3 4 6 7
    b、5 1 4 2 3
    c、3 2 4 1 5
    d、1 2 3 4 5

5、有a和b两个公共列的数据框，如何用merge()函数按a数据框将a，b两个数据框合并
    a、merge(a,b,all=t)
    b、merge(a,b,all.x=t)
    c、merge(a,b,all.y=t)
    d、cbind(a,b)

第二章作业

1、2.1 练习新变量生成和数据重新编码 1）从wdi分别下载所有国家2016年和2017年gdp数据 2）计算经济增长（放在2017年的表里） 3）产生一个新变量level（放在2017年的表里），经济增长小于等于-5%的标i，大于-5%小于等于0的标ii，大于0%小于等于5%的标为iii，大于5%小于等于10%标为iv，大于10%标为v

第三章：r编程基础

第三章测试

1、x<-c(true,false,false)，y<-c(true,true,false))，运行x&&y这行代码是什么结果
    a、true
    b、true false false
    c、both true
    d、false

2、f3 <- function(a123,b12,b13){list(a=a123,b1=b12,b2=b13)} ，构建一个函数，该函数为三个向量构成的列表，函数包括三个参数。则f3(2,3,a123=1)$a的结果为
    a、$a [1] 2
    b、$a [1] 3
    c、$a [1] 1
    d、$a [1] a123

3、函数可以没有函数名。

4、函数主体可以没有返回语句。

5、d是一个矩阵，x<-apply(d,2,f)这行代码中，apply是对d这个矩阵每一行运用函数。

第三章作业

1、3.1 小王贷款100万购买房子，贷款利率为4.9%（年利率），贷款期限20年。 1）用循环执行语句（for或者while），分别计算等额本金还款和等额本息还款的每月偿还本金、偿还利息、偿还本息、剩余本金 2）以数据框的形式给出。 3）计算两种还款方式的利息差额。 其中等额本金每月偿还本金 = 贷款总额/贷款月数 等额本息每个月的偿还本息 = 贷款总额*月利率*(1 月利率)^贷款月数/[(1 月利率)^贷款月数-1]

第四章：r做图基础

第四章测试

1、自定义坐标轴函数axis()的参数中，用于添加坐标轴刻度标签的是（）
    a、at=
    b、labels=
    c、font=
    d、tick=

2、图例函数legend()的参数中，用legend=指定的是（）
    a、图例内容的字符向量
    b、图例内容的颜色
    c、图例边框的类型
    d、图例内容的线条宽度

3、以下命令中，能够画出3行2列的多重图框且第2幅图在第二行第一列的是（）
    a、par(mfrow = c(2,3))
    b、par(mfrow = c(3,2))
    c、par(mfcol = c(3,2))
    d、par(mfcol = c(2,3))

4、高级绘图函数中，可以将坐标轴标签禁用的参数是（）
    a、axex=f
    b、axex=t
    c、ann=f
    d、ann=t

第四章作业

1、简化图形类型代码 par(mfrow=c(2,4)) plot(c(1:3),c(2:4),type = "p", main =paste("type=","p",sep="") ) plot(c(1:3),c(2:4),type = "l", main =paste("type=","l",sep="") ) plot(c(1:3),c(2:4),type = "b", main =paste("type=","b",sep="") ) plot(c(1:3),c(2:4),type = "o", main =paste("type=","o",sep="") ) plot(c(1:3),c(2:4),type = "h", main =paste("type=","h",sep="") ) plot(c(1:3),c(2:4),type = "s", main =paste("type=","s",sep="") ) plot(c(1:3),c(2:4),type = "s", main =paste("type=","s",sep="") ) plot(c(1:3),c(2:4),type = "n", main =paste("type=","n",sep="") )

第五章：r与债券市场和金融衍生品市场的应用

第五章测试

1、5.对债券现金流的贴现的函数以下那种写法是正确的 （ ）
    a、a cfs <- 100 * (rep(couponrate/frequency, n) c(rep(0, n ),1))
    b、b cfs <- 100 * (rep(couponrate/frequency, n-1) c(rep(0, n - 1),1))
    c、c cfs <- 100 * (rep(couponrate/frequency, n) c(rep(0, n - 1))
    d、d cfs <- 100 * (rep(couponrate/frequency, n) c(rep(0, n - 1),1))

2、在计算债券久期时，修正久期等于麦考利久期除以（1 到期收益率），考虑付息频率的话， 代码形式可以为moddur<-macdur/(1 requiredyld/frequency )。

3、计算某日期前后若干个月的日期的函数中的%/%符号是对某数求余，而%%符号是计算整除的商。

4、在计算债券每一天净价和全价时， sapply和lapply函数都可以对产生的时间序列循环计算。

5、每一个r函数都包括三个部分：函数名，程序主体以及参数集合。如果最后一行不输出结果，整个函数也将不会有返回值

第五章作业

1、假想某只债券在上海证券交易所交易，其面值为100元，票面利率为4%，每半年支付一次利息，2025年4月11日到期。，并假设在该期间债券的收益率维持在3%的水平不变。 (1)编写函数计算该债券于2019年11月13日至2022年11月13日期间每天的净价、全价和应计利息的变化，并以数据框的形式给出。 (2)并用ggplot2画出债券价、全价和应计利息的变化。