Nothing
SNPgenmap <- function(physmap, chromosomes) {
genmap <- rep(NA, length(chromosomes))
for (chr in 1:22) {
physpos <- CrypticIBDcheck::RutgersMapB36[[paste0("chr", chr)]]$Build36_map_physical_position
genmappos<-CrypticIBDcheck::RutgersMapB36[[paste0("chr", chr)]]$Sex.averaged_map_position
chrmap <- approxfun(physpos,genmappos)
ind <- which(chromosomes == chr)
genmap[ind] <- chrmap(physmap[ind])
}
return(genmap)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.