for (i in 1:100) {

    load(paste("exp_", i, ".RData", sep=""))

    sdat <- round(t(scale(t(dat$X), center=T, scale=T)), digits=3)

    file <- paste("exp_",as.character(i),"_samba.txt",sep = "")
    #file <- paste("exp_",as.character(i),"_bicat_scaled.txt",sep = "")
    print(file)
    #write.table(sdat, file = file, quote = FALSE, sep = "\t",row.names = TRUE,col.names = TRUE,append=FALSE)
    cat("1000 100\n",file = file)
    write.table(sdat, file = file, quote = FALSE, sep = "\t",row.names = TRUE,col.names = F,append=TRUE)

}