# NOT RUN {
x <- 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"))
AlleleShare_Table(x,replicate=TRUE)
# }
Run the code above in your browser using DataLab