2020 数值分析与统计计算（双）(东南大学) 最新满分章节测试答案

本答案对应课程为:点我自动跳转查看
本课程起止时间为:2020-02-24到2020-06-30
本篇答案更新状态:已完结

【作业】An Introduction to R Home works for R 2

1、 问题:1. x<-c(3,2,5,4,1)求x中最大数和第二大数的下标。（用order()函数）
评分规则: 【 x<-c(3,2,5,4,1)y<-order(x)n<-length(x)y[n];y[n-1]
】

2、 问题: x<-c(3,2,5,4,1)求x第二大数和第三小的数。（用order()函数）
评分规则: 【 rm(list=ls())x<-c(3,2,5,4,1)y<-order(x)n<-length(x)x[y[n-1]]x[y[3]]
】

3、 问题:产生容量为20服从U[-10,10]样本，并四舍五入保留2位小数。(runif()和round()的应用）
评分规则: 【 x<-round(runif(20,0,20),digits=2）
】

4、 问题:1. 产生20个来自正态总体N（1,2）的样本，求其汇总。（summary())
评分规则: 【 x<-rnorm(20,1,sqrt(2))summary(x)
】

5、 问题:产生20个来自指数分布e(2)的样本，求其汇极值和范围。(min(),max(),range())
评分规则: 【 x<-rexp(20,2)min(x)max(x)range(x)
】

6、 问题:产生20个来gamma分布gamma(2，5)的样本，求其中位数和均值。（mean(),median())
评分规则: 【 x<-rgamma(20,2,5)mean(x)median(x)
】

7、 问题:产生20个来beta分布beta（2,3）的样本，求方差和标准差。(var(),sd())
评分规则: 【 x<-rbeta(20,2,3)var(x)sd(x)
】

8、 问题:产生2000个来beta分布beta（2,3）的样本，作频率直方图，分20个区间，并在直方图上添加beta(2,3)的密度曲线
评分规则: 【 rm(list=ls())x<-rbeta(2000,2,3)a<-min(x);y<-max(x)hist(x,freq=F,breaks=seq(max(0,a-0.01),y,length=20))curve(dbeta(x,2,3),add=T)
】

9、 问题:1. 在同一张图上作出[-pi,pi]的正弦函数（实线）和余弦函数图形（虚线），并标注带框图例。(plot(),lty,legend,xlim)
评分规则: 【 rm(list=ls())curve(cos(x),lty=2,xlim=c(-pi,pi))curve(sin(x),lty=1,add=T)legend(-2.5,0.8,c(‘sin(x)’,’cos(x)’),lty=1:2,bty=’o’)
】

10、 问题:产生来自均匀分布U[-1,2]的容量为100的样本。把作图区域分成四块，分别作出该样本的折线图，直方图，正态概率图，和箱线图，并分别以图的类型作为主标题。（par(),plot(),hist),boxplot())
评分规则: 【 rm(list=ls())x<-runif(100,-1,2)par(mfrow=c(2,2))plot(x,type=’l’,main=’折线图’)hist(x,main=’直方图’)qqnorm(x,main=’正态概率图’)boxplot(x,main=’箱线图’)
】

【作业】An Introduction to R Home works for R

1、 问题:把1,2，。。。100个整数向量赋值到x
评分规则: 【 x=1:100 (x=1:100) #同上，只不过显示出来
】

2、 问题:从1,2，。。。，100中随机不放回地抽取30个值做样本
评分规则: 【 sample(x,20)
】

3、 问题:先设随机种子为1，再从1,2,…20中又放回的抽取4个数
评分规则: 【 set.seed(1)sample(c(1:10),4,rep=T)
】