R/get_ndx_scores.R

Defines functions get_ndx_scores

get_ndx_scores <-
function(weights, geno, names) {
  scored = as.vector(weights != 0)
  geno2 = subset(geno, scored == TRUE)
  col = match(geno2,names)
  u = as.vector(na.omit(unique(col)))
  return (sort(u))
}

Try the SpATS package in your browser

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

SpATS documentation built on Oct. 16, 2024, 9:06 a.m.