Hi there
  My script at each iteration produces a .dat file which I save in a directory 
with write.table. Then I need to read each line of this file and create a 
directory for each line and put elements of that row in that directory. I do it 
with the following script which I have inserted somewhere between my outer 
iteration loop, it works fine for the first iteration, but the problem is that 
it does nothing at next iterations. How can I solve this problem, is there 
anything wrong with my code?
  Thanks in advance for your help.
   
   
    write.table(X, file = "model.dat", append = FALSE, sep = " ", eol = "\n", 
na = "NA", dec = ".", row.names = FALSE, col.names = FALSE, qmethod = 
c("escape", "double")) 
  
  mother<-getwd()
  
  
  count <- 0;
  
  con<- file("model.dat", open="r")

   
  while (length(line) > 0) {
   
  line<-readLines(con,n=1)
  count <- count +1
  cat("read row no", count, ",\n", sep="");
  print(line)
  
  foldername <- paste("Iteration",c, "ant", count)
  dir.create (foldername)
  
  setwd(foldername)
  write.table(line, file = "params.in", append = FALSE, sep = " ", eol = "\n", 
na = "NA", dec = ".", row.names = FALSE, col.names = FALSE, qmethod = 
c("escape", "double"))
  
  #system(run_misf_calc.py)
  
  setwd(mother)
   
   
  }
  
  
  close(con)

       
        [[alternative HTML version deleted]]

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to