cbind(BostonHousing$lstat, BostonHousing$medv) x <- unique(x) svg("scagnosticsBase.svg", width=10, height=3) par(mfrow=c(1,3), mar=c(0,0,2,0)) hull <-...
