R/polymorph.R

Defines functions get.polymorph

get.polymorph <- function(matr){

#count1 <<- 0
poly  <- apply(matr,2,function(x){

  # cat(count1,"\n")
  # count1 <<- count1 + 1 
  return(length(unique(x))!=1)

})

return(which(poly))

}

Try the PopGenome package in your browser

Any scripts or data that you put into this service are public.

PopGenome documentation built on Feb. 1, 2020, 1:07 a.m.