#!/usr/bin/Rscript

svg("cpi.svg", width=10, height=10)
source("cpi-plot.R")
# Print the lattice plot
print(.Last.value)