刚开始学R语言，有道题不会做

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1.产生来自正态分布 N(5,1) 的100个随机数；
2.计算其概率密度在 x=3 处的函数值；
3.在同一个直角坐标系下画出该分布的总体累积分布函数，以及样本的经验分布函数的图像。
第一题第二题我都会，就是不会第三个，麻烦帮忙写下程序和注释，让我能看懂。谢谢^_^

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 有道题 累积分布函数 分布函数 概率密度 分布函数 正态分布 程序 样本

set.seed(1234)
x <- rnorm(n = 100, sd = 1, mean = 5)
x <- sort(x)

# 总体累积分布函数
F <- pnorm(x, mean = 5, sd = 1)

# 经验分布函数
ECDF <- ecdf(x)

# 或者自定义经验分布函数
P <- NULL
for (i in 1:length(x)){
  P[i] = sum(x <= x[i])/length(x)
}

# 绘图
plot(x,F ,ylab = 'F(X)', type = 'l',
     col = 'blue', lwd = 2,
     main = 'CDF vs. ECDF')

lines(ECDF, col = 'red', lwd = 2)

# 添加图例
legend(locator(), legend = c('总体累积分布函数',
                             '经验分布函数'),
       col = c('blue','red'), lwd = c(2,2),
       bty = 'n')

lsx19890717 发表于 2016-12-6 09:54
set.seed(1234)
x

超级无敌感谢！！