【统计模拟及其R实现】往年上机试题答案

本文通过R语言解答了若干统计模拟题目,包括T1至T6,涉及不同类型的统计分布和计算。T1至T5展示了具体的结果,T6的结果部分不确定,作者期待与其他学习者交流更多解题方法。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

题目:

答案:

T1

R程序:

t1 = function() {
  # 产生模拟股票数据
  open = runif(100,min=0,max=100)
  close = runif(100,min=0,max=100)
  
  setwd("C:/Users/87029/Desktop/R图片") # 图片保存路径
  jpeg(file = "exam.png") # 图片名称
  
  par(mfrow=c(2,2))
  qqnorm(close,main="收盘价qqnorm图")
  hist(close,main="收盘价箱型图",xlab="收盘价")
  boxplot(close,main="收盘价boxplot图",xlab="收盘价")
  qqplot(open,close,main="股价qqplot",xlab="开盘价",ylab="收盘价")
  mtext("股价分析图",outer=T,cex=1.5)
  
  dev.off()
}

t1()

结果:

T2

R程序:

# 逆变换计算:
# U = -exp(-5/2*(x-2))
# x = 2 - (2/5)*log(-u)

t2 =  function(n) {
  u = runif(n,min=-1,max=0)
  x = 2 - (2/5)*log(-u)
  x
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值