R/fgt_rrate_dpr.R

Defines functions fgt_rrate_dpr

Documented in fgt_rrate_dpr

fgt_rrate_dpr = function(x,y,data1,data2) {
  temp = genetics::diseq(genetics::genotype(data1[,x],data1[,y],allow.partial.missing = T))
  t1 = temp$R2.overall
  t2 = temp$Dprime.overall
  temp = paste(data2[,x], data2[,y], sep = "")
  return(c(dim(table(temp))>=4,t1,t2))
}
PhHermann/LDJump documentation built on July 5, 2018, 12:24 a.m.