当前位置: 首页 > 编程学习 > 其它语言 > R语言 > 正文

R语言学习笔记(十六) 构建分割点函数

2018-04-22 来源:博客园/嘻呵呵

选取预测概率的分割点

cutoff<- function(n,p){
    pp<-1
    i<-0
    while (pp>=0.02) {
        model.predfu<-rep("failure",n)
        model.predfu[model4.prob > 0.2 + i*0.001]<-"victory"
        pp<- abs(p-sum(model.predfu=="failure")/n)
        i<-i+1
    }
    cut<-0.2+(i-1)*0.001
    return(cut)
}