test/test2.R

data <- readRA("simDS.vcf.ra.tab")
ur <- makeUR(data, mafEst = T)
system.time({tt <- ur$.__enclos_env__$private$p_est(method="EM")})
system.time({tt2 <- ur$.__enclos_env__$private$p_est()})
tpbilton/GUSbase documentation built on March 8, 2024, 1:35 p.m.