powered by
"plot"(x,main="Clinical significance plot", xlab="Pre-intervention score",ylab="Post-intervention score", xlim=NA,ylim=NA,pch=par("pch"),point.id=NA,...)