lratio <- c(-1,-1,seq(from=-1,to=1,by=.25),1,1)
variance <- c(0,1,rep(0.1,9),0,1)
ratiodistr.precise <- new("Norm",mean=0,sd=.25)
ratiodistr.wide <- new("Norm",mean=0,sd=.5)
# ratio p-value is impacted only by the variance
# sample p-value captures whether the ratio distribution is narrow ('precise')
# or wide
data.frame(lratio, variance,
ratio.pvalue=calculate.ratio.pvalue(lratio, variance),
sample.pvalue.precise=calculate.sample.pvalue(lratio,ratiodistr.precise),
sample.pvalue.wide=calculate.sample.pvalue(lratio,ratiodistr.wide))
Run the code above in your browser using DataLab