m <- matrix(c(3,4,5,1,5,4,2,6,2), nrow = 3,
dimnames = list(dose = c("A","B","C"),
age = c("2010","2011","2012")))
PlotLinesA(m, col=c(PalHelsana()), main="Dose ~ age_grp", lwd=3, ylim=c(1, 10))
Run the code above in your browser using DataCamp Workspace