submapFLODRecap <- function(h)
{
if(class(h@submaps_list[[1]])[1] != "snpsMatrix" & class(h@submaps_list[[1]])[1] != "HostspotsMatrix")
stop("need either an hotspots.segments list of submaps or a snpsSegments list of submaps, in the atlas object.")
#for each marker gives the HBD proba for all the individuals
lapin <- lapply(h@submaps_list, function(hh) hh@FLOD)
return(lapin)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.