A simple R function that converts the binary table output from RawGeno to a format that can be read by AFLPScore

RawGeno_2_AFLPscore

# This function converts the binary table output from 
# RawGeno to a format that can be read by AFLPScore


##################################
#  RawGeno_2_AFLPscore function  #
##################################

RawGeno_2_AFLPscore <- function(outfilename)
{
dat <- data.binary$data.height.raw

tdat <- t(dat)

names <- vector(length = ncol(tdat))
names[1] <-""
for (i in 2:ncol(tdat))
	{
	names[i] <- paste("Loc_",i,sep="")
	}

colnames(tdat) <- names

tdat[which(tdat==0)] = NA



write.table(tdat, outfilename, na="", quote=FALSE, sep="\t")
}

##################################
#           end   function       #
##################################



### To use type RawGeno_2_AFLPscore("outfile.txt") to create a coverted file with name outfile.txt