write_file2.r

这是07年的大学生建模比赛最为完整的解答 使用了lingo 和R软件

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)
}