R实用小技巧

　　输出重定向

# 文本重定向
# cat
cat("hello",file="D:/test.txt", append=T)

# sink("filename")
a = which(colnames(a_card_data) == 'td_final_score')
b = which(colnames(a_card_data) == 'td_multiple_platforms_num_60m')
colnames(a_card_data)[a:b]

library(smbinning)
getwd()
sink("./test.txt")   # 加append=T表示追加
for(i in colnames(a_card_data)[a:b]){
    cat(i,'\n')
    print(smbinning(df=a_card_data[ind_new,], y="timeout_lable", x=i, p=0.05))
    cat("-------------------\n")
    print(smbinning(df=a_card_data[!ind_new,], y="timeout_lable", x=i, p=0.05))
    cat("\n************************************************\n")
}
sink()

# 图形重定向
# pdf("filename.pdf"), png, jpeg，最后使用dev.off()将输出返回到终端

　　全排列

##################  --全排列数----  #################

perm=function(aa,s,e){
  if(s==e)print(aa) #{seqs=rbind(seqs,aa);print(seqs)}  ##return(aa) ##{seqs[d,]<<-aa;d=d+1}    #{seqs[k,]=aa;k=k+1}
  else{
    for(i in s:e){
      if(i != s){
        t=aa[s];aa[s]=aa[i];aa[i]=t
      }
      perm(aa,s+1,e);
      #t=aa[s];aa[s]=aa[i];aa[i]=t      #防止改变原始序列值
    }
  }
}
#seqs=matrix(0,9,3)  #rep(0,5)
#perm(1:3,1,3)
#seqs

###############--重定向文本----#########################
#setwd("")
sink("D:/Dasktop/sin.txt")
perm(1:8,1,8)  #perm(c('a','b','c'),1,3)
sink()

　　链接

R 字符处理函数