added spada.plot.r