x = c(-4,0,4)
y1 = c(1,0,3)
y2 = c(3,0,1)
y3 = c(2,0,2)

plot(x,y3,type="l",ylim=c(0,4),xlim=c(-4,4),xlab="error = prediction - actual",ylab="quantile loss")
lines(x,y1,lty=2)
lines(x,y2,lty=3)


legend(1,4,legend=c("q=0.5","q=0.75","q=0.25"),lty=c(1,2,3))



a=read.table("c:/quanting/adultreg.0.9.j48.results");

plot(a$V1,type="l",xlab="Number of classifiers", ylab="Quantile loss",lty=5)


b=read.table("c:/quanting/adultreg.0.9.logreg.results");

lines(b$V1,type="l",lty=2)

lines(c(0,98),c(3198.38,3198.38),lty=3)

lines(c(0,98),c(3332.05,3332.05),lty=4)

legend(40,4600,legend=c("linear","kernel","quanting-LogReg","quanting-J48"),lty=c(4,3,2,5))




a=read.table("c:/quanting/housing.0.9.j48.results");

plot(a$V1,type="l",xlab="Number of classifiers", ylab="Quantile loss",lty=5)


b=read.table("c:/quanting/housing.0.9.logreg.results");

lines(b$V1,type="l",lty=2)

lines(c(0,98),c(0.632955,0.632955),lty=3)

lines(c(0,98),c(1.137319,1.137319),lty=4)

legend(40,2,legend=c("linear","kernel","quanting-LogReg","quanting-J48"),lty=c(4,3,2,5))