Make_All_Minor_Alleles <-
function(h,genotypes=FALSE,MAF){
if(genotypes){
IDB = which(MAF>0.5)
h[,IDB] = 2 - h[,IDB]
return(as.matrix(h))
}
else{
IDB = which(MAF>0.5)
h[,IDB] = 1 - h[,IDB]
return(as.matrix(h))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.