fraudread<-function(refno)
{data<-read.table("http://www.mas.ncl.ac.uk/~nmf16/teaching/mas8303/frauddata.txt")
 no1<-5*(refno-11)+1
 no5<-no1+4
 out<-data[,no1:no5]
 write.table(format(out),row.names=FALSE,col.names=FALSE,quote=FALSE,file="myfrauddata.txt")
 }