# diploidise.it() diploidise haploid genotype data (Genotypes)
# Genotypes is an object where each locus is a column, and locus data from each 
# haploid individual are given in rows, e.g. 
#Genotypes <- matrix(NA, 2,3)
#dimnames(Genotypes) <- list(c(12),c("L1","L2","L3"))
#Genotypes[1, ]<- c(12,13,1)
#Genotypes[2, ]<- c(14,13,2)

diploidise.it <- function(data)
{
Genotypes.D <- matrix(NA,nrow(data),(ncol(data)*2))
n <- 1
for(i in 1:ncol(data))
	{
	Genotypes.D[,n:(n+1)] <- data[,i]
	n <- n+2
	}
Genotypes.D
Result <- list()
Result$Genotypes.D <- Genotypes.D
Result
}

#Usage 
# diploidised.genotypes <- diploidise.it(Genotypes)
# diploidised.genotypes