# A partir de genemap2.txt descargado de OMIM cambiar el orden de las columnas.
# La columna 13 que es la que contiene el fenotipo es la que debe quedar en primer lugar.
# El output se llama genemap2_reorder.txt
genemap2<-read.csv(file="C:\\Users/Fer/Desktop/genemap2.txt",header=F,sep="\t")##path de archivo genemap2.txt
genemap2_reorder<-genemap2[,c(13,c(1:12),14)]
write.table(genemap2_reorder,file="C:/Users/Fer/Desktop/genemap2_reorder.txt",quote=F,row.names=FALSE,col.names=FALSE,sep="\t")##path donde desee el output