misclass(form,a0=0,a1=0,bmat=0,print.summary=TRUE,data=NULL)
set.seed(189)
n = 1000
x <- rnorm(n)
x <- sort(x)
y <- x*1 + rnorm(n, 0, sd(x)/2)
y <- ifelse(y>0,1,0)
e <- runif(n)
misy <- y
misy <- ifelse(e<.10&y==0,1,y)
misy <- ifelse(e>.90&y==1,0,misy)
table(y,misy)
fit <- misclass(misy~x)
Run the code above in your browser using DataLab