data(DeltaSimulatedPedigree)
ii <- 1:3
SubSet <- list(length = 9)
for (k in 1:9) {
SubSet[[k]] <- matrix(numeric(3^2), ncol = 3)
SubSet[[k]] <- DeltaSimulatedPedigree[[k]][ii,ii]
}
List <- PairwiseList(SubSet)
print(List)
Run the code above in your browser using DataLab