################################################################# 
# THIS FILE CONTAINS THE CODE TO GENERATE THE FIGURE 3 SHOWN IN #
# THE PAPER:                                                    #
# Torgo,L and Lopes,E.: Utility-based Fraud Detection. In       #
#   Proceedings of the 22nd IJCAI'2011                          #
#################################################################
# Author : Luis Torgo (ltorgo@dcc.fc.up.pt)      Date: Mar 2011 #
# License: GPL (>= 2)                                           #
#################################################################




require(DMwR)


##################################################################
## Figure 3: Results with the Foreign Trade Transactions data set
##################################################################

pdf('figResFTT.pdf',family='Times', width=12,height=6)
effLvls <- c(2:6)
nLs <- length(effLvls)
Lvls <- paste(seq(5,50,5),'%',sep='')
Lbs <- paste('Month',1:8)
par(mfrow=c(1,2))

# % Utility Gains over Probability Rankings using LOF
load('5lofResultsUtility.Rdata')
matplot(t(log(100*(UtilityEU[effLvls,]/Utility[effLvls,]-1))),type='b',xaxt='n',col=1,pch=1:nLs,ylab='log(% Gain)',main='% Utility Gains over Probability Rankings using LOF')
axis(1,at=1:ncol(Utility),labels=Lbs,las=2)
smartlegend('right','top',Lvls[effLvls],col=1,pch=1:nLs,lty=1:nLs)


# % Utility Gains over Probability Rankings using ORh
load('5sizeDiffResultsUtility.Rdata')
matplot(t(log(100*(UtilityEU[effLvls,]/Utility[effLvls,]-1))),type='b',xaxt='n',col=1,pch=1:nLs,ylab='log(% Gain)',main='% Utility Gains over Probability Rankings using ORh')
axis(1,at=1:ncol(Utility),labels=Lbs,las=2)
smartlegend('right','top',Lvls[effLvls],col=1,pch=1:nLs,lty=1:nLs)
par(mfrow=c(1,1))

dev.off()