题目:
答案:
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