fuopen

摘要： R 其实是个很好用的东东哦～最近写了个小函数，可以实现全排列数的枚举,代码如下： permut<-function(seq){ seq_len=length(seq); if(seq_len==1){ perseq<-seq; } else{ if(seq_len==2){ perseq<-cbind(c(seq[1],seq[2]),c(seq[2],seq[1])); } else{ sd<-seq[-1]; e<-permut(sd); perseq<-rbind(seq[1],e); for(i in 2:seq_len){ sd<-seq[- 阅读全文