R/gdbr_wIBS.R

In AssotesteR: Statistical Tests for Genetic Association Studies

Defines functions gdbr_wIBS

Documented in gdbr_wIBS

gdbr_wIBS <- 
function(gen, weights)
{
  n = nrow(gen)
  p = ncol(gen)
  Sim = diag(1, n, n)
  aux = .C("gdbr_wIBS", as.integer(as.vector(t(gen))), as.integer(n), as.integer(p), 
           as.double(weights), as.double(as.vector(Sim)))[[5]]
  matrix(aux, nrow=n)
}

Try the AssotesteR package in your browser