输出重定向
# 文本重定向
# 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()
链接