Displaying 1 result from an estimated 1 matches for "cutp".
Did you mean:
cut
2012 Oct 26
0
Problems getting slope and intercept to change when do multiple reps.
...mily=binomial(logit))
*int*<-coef(model)[1]
*slope*<-coef(model)[2] # when add error you are suppose to get slightly
bias slope. However when I change the beta in the original X, I am not
getting the save average slope as output? strange?
pred<-predict(model,type="response")
cutp<-.5
result<-ifelse(pred>cutp,1,0)
rocpreds<-prediction(result,z)
auc<-performance(rocpreds,"auc")@y.values
accuracy<-length(which(result==z))/length(z)
tn<- sum(z==0 & result==0) # True Negative
fp<- sum(z==0 & result==1) # False Positive
tp<-...