r - R: 別々のセルに (ベクトル) データを書き込む

Question

出力データの書き込みに問題があります。私は次のような指示をしました。

myfiles <- list.files("D:/dolnyslask/2011/after", pattern=".csv")
for (j in 1:length(myfiles)) {
  thisfile <- read.csv(myfiles[j], header = T, sep=";", na.string="NA", comment.char="")
  for (i in thisfile) {
    x = sd(i, na.rm=T)
    y = length (na.omit(i))
    if (y == 0) {
      cat(paste(rep(c("-"),11)), file=myfiles[j], append=T, sep="\t")
      cat(paste(length(na.omit(i))), file=myfiles[j], append=T, sep="\n")     
    } else if (is.na(x) || x == 0) {
      cat(paste(format(min(i, na.rm=T)), format(mean(i, na.rm=T)), format(max(i, na.rm=T)), format(median(i, na.rm=T)), format(sd(i, na.rm=T)), format(mean(i, na.rm=T)), format(mean(i, na.rm=T)), format(mean(i, na.rm=T) - mean(i, na.rm=T)), format(mean(i, na.rm=T) - mean(i, na.rm=T)), format((mean(i, na.rm=T) - mean(i, na.rm=T))/median(i, na.rm=T)), format((mean(i, na.rm=T) - mean(i, na.rm=T))/median(i, na.rm=T)), digits=5), file=myfiles[j], append=T, sep="\t")
      cat(paste(length(na.omit(i))), file=myfiles[j], append=T, sep="\n")
    } else { 
      cat(paste(format(min(i, na.rm=T)), format(mean(i, na.rm=T)), format(max(i, na.rm=T)), format(median(i, na.rm=T)), format(sd(i, na.rm=T)), format(t.test(na.omit(i), conf.level=0.90)$conf.int), format(t.test(na.omit(i), conf.level=0.90)$conf.int - mean(i, na.rm=T)), format((t.test(na.omit(i), conf.level=0.90)$conf.int - mean(i, na.rm=T))/median(i, na.rm=T)), digits=5), file=myfiles[j], append=T, sep="\t")
      cat(paste(length(na.omit(i))), file=myfiles[j], append=T, sep="\n")
    }
  }
}

私のcsvファイルは次のようになります：

NA  NA  NA  NA  NA  NA  2   NA  NA  12.1    NA
NA  NA  NA  NA  NA  NA  4   NA  NA  10  NA
NA  NA  NA  NA  NA  NA  12.1    NA  NA  8.5 NA
NA  NA  NA  NA  NA  NA  14.8    NA  NA  6   NA
NA  NA  NA  NA  NA  NA  15  NA  NA  7.4 NA

R は良い結果を返しますが、(csv ファイル内の) 1 つのセルでしか返されませんが、すべてのセルが別々の列にある必要があります。「sep」で種類を変更しようとしましたが、うまくいきませんでした。

私は何をすべきか？