我们试图在我们的自举散点图上叠加一条 cdf 曲线。到目前为止,这是我们的代码,我们可以根据您的要求提供数据,但是当我们尝试运行我们的 lines 函数时,底部会绘制一条平线。如果有人可以帮助解释如何覆盖适当的曲线,我们将不胜感激。
num_tot <- Blind_FinalExperiment$Num
total <- sum(num_tot)
sample <- sample(num_tot, replace = TRUE)
new_sum <- sum(sample)
cdfreplication = replicate(10000, sample(num_tot, replace = TRUE))
sample_sums <- replicate(10000, sum(sample(num_tot, replace = TRUE)))
freq <- table(sample_sums)
n <- length(sample_sums)
probs <- (freq / n)
genericcdf = length(which(cdfreplication == -1))/180000
genericcdf
brandcdf = length(which(cdfreplication == 1))/180000
brandcdf
plot(probs, main = "Known Experiment")
lines(ecdf(pbinom(brandcdf,180000, (2/3))))