plot(pred_y_tr_svm,actual_y_tr,tcl=-0.5,<br />
xlab=expression("Predcited pIC"[50]*""),<br />
ylab=expression("Actual pIC"[50]*""),<br />
asp=0.8,frame.plot=T,<br />
xlim=c(3,7),ylim=c(3,7),<br />
pch=pch.tr)<br />
title(main="svm model",line=0.5,font.main=1,<br />
cex.main=1)<br />
fits<-lm(pred_y_tr_svm~actual_y_tr)<br />
abline(fits,lwd=2,col=1)
</p>
