require(GenABEL.data)
data(srdta)
x1 <- srdta[c(1,3,5,6),c(2,4,5,6)]
x2 <- srdta[c(2,4,5,6),c(1,3,5,6)]
x3 <- merge(x1,x2)
x1
as.character(x1)
x2
as.character(x2)
x3
as.character(x3)
srdta[1:6,1:6]
as.character(srdta[1:6,1:6])
Run the code above in your browser using DataLab