2018-10-24 阅读量: 673
s<-c("y","n")
da<-sample(s,20,replace=T)
n<-rep(0,length(da))
for(i in seq_along(da)) {
ifelse(da[1]=="y",n[1]<-1,n[1]<-0)
if(i==1) next
ifelse(da[i]=="y",n[i]<-n[i-1]+1,n[i]<-n[i-1])
}
n
三个资料Q群下载不了也转发不了,先放这里Fine_tuning.zipLangChain.zipdata_clear.rar
