#This script reads in a file containing oligo sequences and 
#writes out a file containing oligo sequences in the fasta format

FileOut <- "BovineSNP50OligoSeqs.fasta"

library("ape")
D <- read.table(file = "../Material/BovineSNP50_B.csv", header = T, sep = ",")

stop()

M <- as.matrix(D$AlleleA_ProbeSeq)
rownames(M) <- paste(D$Name, D$IlmnStrand, D$SourceStrand, D$SNP, sep = "|")
write.dna(M, format = "fasta", file = FileOut, nbcol = -1, colw = 50)