data(Claims)
attach(Claims)
plot(op_time,total,xlim=range(op_time),ylim=range(total),type="p",cex=0.3,lwd=3,
ylab="Amount of paid money",xlab="Operational time",
main="Personal Injure Insurance Data")
Run the code above in your browser using DataLab