powered by
pairs
"plot"(x, which = 1:x$numdir, mark.by.y = FALSE, plot.method = pairs, ...)
data(ais) # default fitting method is "sir" s0 <- dr(LBM~log(SSF)+log(Wt)+log(Hg)+log(Ht)+log(WCC)+log(RCC)+ log(Hc)+log(Ferr),data=ais) plot(s0) plot(s0,mark.by.y=TRUE)
Run the code above in your browser using DataLab