write_file2.r

来自「这是07年的大学生建模比赛最为完整的解答 使用了lingo 和R软件」· R 代码 · 共 7 行

write_file2<-function(labT, D, file="dist.ldt"){
   write(c(labT, "~"), file=file, 
         ncolumns=20)
   write(t(D), file=file, append =T, ncolumns=20)
   write("~", file=file, append =T)
}