Create sparkLinesDemo.R