powered by
Estimates the proportion of non-nulls.
epsest.func(x, u, sigma)
the corresponding vector to be estimated
the mean of the null distribution
the standard deviation of the null distribution
a value indicating the estimated non-null proportion
# NOT RUN { X <- rep(c(0,2),c(800,200))+rnorm(1000); epsest.func(X,0,1); # }
Run the code above in your browser using DataLab