R/AWFisherUtil.R

Defines functions aw.fisher.stat

aw.fisher.stat <- function(pstat, n) {
    index = match(n, sysdata[["nList"]])
    
    ##### Estimating ###########
    f = splinefun(c(0, sysdata$original[index, ]), 
                  c(0, sysdata[["logPTarget"]]), method = "monoH.FC")
    exp(-f(pstat))
}

Try the AWFisher package in your browser

Any scripts or data that you put into this service are public.

AWFisher documentation built on Nov. 8, 2020, 5:42 p.m.