Displaying 2 results from an estimated 2 matches for "double_homo".
2007 Oct 19
1
(no subject)
...;-"L(B)a(j)"
result.df
### The loop written to find Double Homozygotes
for (a in seq(1,(ncol(X)-3), by=2)){
for (b in seq(3,(ncol(X)-1), by=2)){
for (i in a){
j <- a+1
for (k in b){
l <- b+1
match.rows <- ((X [,i] == X [, j] ) & ( X [,k] == X [, l]))
double_homo_i <- X [match.rows, i]
double_homo_k <- X [match.rows, k]
double_homo<- cbind( double_homo_i, double_homo_k)
double_homo.df<-data.frame(double_homo,Counts=2)
names(double_homo.df)[1]<-"L(A)a(i)"
names(double_homo.df)[2]<- "L(B)a(j)"...
2007 Oct 19
1
conduct pairwise column comparisons without comparing a column to itself
...;-"L(B)a(j)"
result.df
### The loop written to find Double Homozygotes
for (a in seq(1,(ncol(X)-3), by=2)){
for (b in seq(3,(ncol(X)-1), by=2)){
for (i in a){
j <- a+1
for (k in b){
l <- b+1
match.rows <- ((X [,i] == X [, j] ) & ( X [,k] == X [, l]))
double_homo_i <- X [match.rows, i]
double_homo_k <- X [match.rows, k]
double_homo<- cbind( double_homo_i, double_homo_k)
double_homo.df<-data.frame(double_homo,Counts=2)
names(double_homo.df)[1]<-"L(A)a(i)"
names(double_homo.df)[2]<- "L(B)a(j)"...