This folder contains two R functions: EstNull.func.R.txt 
epsest.func.R.txt.

The function EstNull.func.R.txt estimates the null distribution from  
a given vector x, which is from a normal distribution. The outputs are
the estimated mean and standard deviation.

The function epsest.func.R.txt estimates the proportion of non-null means 
from a given vector x, which the null is from a normal distribution with 
given mean and standard deviation. This function may take a while.

Example:
source("EstNull.func.R.txt")
source("epsest.func.R.txt")

hivdata=scan("hivdata.txt")
musigma=EstNull.func(hivdata)
epsest.func(hivdata,musigma$mu,musigma$s)