#Create a matrix containing genotype data from three loci
Genotypes <- matrix(NA, 2,3)
dimnames(Genotypes) <- list(c(1:2),c("Locus1","Locus2","Locus3"))
Genotypes[1, ]<- c(12,13,1)
Genotypes[2, ]<- c(14,13,2) 
source("O://Genetik//MA//Silke//RCode//DiploidiseIt//diploidise.it_source_v1.R") 
#select the pathname of the source code
#execute formula, and retrieve diploidised genotypes
#Usage:
diploidised.genotypes <- diploidise.it(Genotypes)
diploidised.genotypesh fragment lengths x of differenct loci (columns)observed at N individuals (rows)