data("Claims", package="ssym")
plot(Claims$op_time, Claims$total, xlim=range(Claims$op_time), ylim=range(Claims$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