write_file.r

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

write_file<-function(str, D, file="dist.ldt"){
   lab1<-paste("Z", str, sep="")
   write(c("X1", lab1, "~"), file=file, 
         ncolumns=length(lab1)+2)
   write.table(D, file=file, append =T, 
            row.names = F, col.names = F)
   write("~", file=file, append =T)
}