# NOT RUN {
x0 <- data.frame(STR1=c(12,13,13,14,15,13,14,12,14,15),
STR1_1=c(12,14,13,15,13,14,13,12,14,15),
SNP1=c("A","T","A","A","T","A","A","T","T","A"),
SNP1_1=c("A","T","T","T","A","T","A","A","T","T"),
STR2=c(10,12,11,9,10,12,11,12,12,10),
STR2_1=c(10,9,11,11,10,12,10,10,12,9),
SNP2=c("C","C","G","G","G","G","C","G","G","C"),
SNP2_1=c("C","C","G","G","C","G","C","C","G","G"))
mixIndependK(x0,10,10)
# }
Run the code above in your browser using DataLab