library(ggplot2)
#定义函数
f<-function(x)
{
  y<-0.5*log((1-x)/x)
  d<-data.frame(x=x,y=y)
  return(d)
}
#seq(0,1,0.2)   #[1] 0.0 0.2 0.4 0.6 0.8 1.0
#x是误差率，一般0<x<0.5(如果x>0.5则不如直接用随机猜测)
x<-seq(0.005,0.5,0.005)
d<-f(x)
ggplot(d,aes(x,y))+geom_line(color="red")+xlab("x")+ylab("y=0.5*log((1-x)/x)")+theme_bw()