source("psopts.r")

x <- seq(from=-2, to=2, by=0.01)


y.cer <- x
y.cer[x>0] <- 0
y.cer[x<0] <- 1

y.exp <- exp(-x)

postscript(file="cty_boost_loss.eps");
    
plot(x=c(x,x),y=c(y.cer,y.exp),ylab="Loss",xlab="yC",type="n")
lines(x=x,y=y.cer,col="blue",cex=2.5)
lines(x=x,y=y.exp,col="red",cex=2.5)
    
dev.off()