# 文本重定向

# 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()