load("colon.rda")
x=t(colon.x)
write(t(x),file="colon.x.txt",ncolumns=length(x[1,]))
write(colon.y,file="colon.y.txt",ncolumns=1)

load("leukemia.rda")
x=lx.original
write(t(x),file="leukemia.x.txt",ncolumns=length(x[1,]))
write(ly.original,file="leukemia.y.txt",ncolumns=1)

rm(list=ls(all=TRUE))
load("prostate.rda")
x=t(prostate.x)
write(t(x),file="prostate.x.txt",ncolumns=length(x[1,]))
write(prostate.y,file="prostate.y.txt",ncolumns=1)

rm(list=ls(all=TRUE))
load("lymphoma.rda")
x=t(lymphoma.x)
write(t(x),file="lymphoma.x.txt",ncolumns=length(x[1,]))
write(lymphoma.y,file="lymphoma.y.txt",ncolumns=1)

rm(list=ls(all=TRUE))
load("srbct.rda")
x=t(srbct.x)
write(t(x),file="srbct.x.txt",ncolumns=length(x[1,]))
write(srbct.y,file="srbct.y.txt",ncolumns=1)

rm(list=ls(all=TRUE))
load("brain.rda")
x=t(brain.x)
write(t(x),file="brain.x.txt",ncolumns=length(x[1,]))
write(brain.y,file="brain.y.txt",ncolumns=1)