R中的Markov不等式图

Question

我有一个正态分布的，用R.，我需要应用马尔可夫不等式的数据，并绘制在同一地块。我如何实现它呢？欢迎任何帮助。

我的数据和我拥有的：

n01 <- rnorm(1000, mean = 27947623, sd = 575.839)
ecdf_n01 <- ecdf(n01)
ccdf <- data.frame(x = sort(n01),
                 y = 1-ecdf_n01(sort(n01)))
plot(ccdf)

马氏不等式公式：

[≥]≤[]/

Answer 1

在您已经绘制的绘图之后，添加以下代码：

x <- sort(n01)
y <- mean(n01)/x
lines(x, y)

这是一个非常无聊的情节:在n01的范围内，1/x几乎没有变化：

​

​

如果你改变了范围，那就更有趣了，但是现在ECDF被塞进了一条几乎垂直的线中：

x <- seq(2.6e7, 4e7, len=200)

plot(ccdf, xlim = range(x))

y <- mean(n01)/x
lines(x, y)

​

​