我们正试图在我们的bootstrapped散点图上叠加cdf曲线。这是我们的代码到目前为止，我们可以根据您的要求提供数据，但是当我们尝试运行我们的线功能时，底部会绘制一条平线。如果有人可以帮助解释如何覆盖正确的曲线，我们将非常感激。
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))))