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()})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.