data(ND)
logND <- log(ND)
splot(logND, c("t1_OCDD", "t1_TCDF", "t1_HxCDF_234678"),
c("t2_OCDD", "t2_TCDF", "t2_HxCDF_234678"), ti="scatter plot matrix")
splot(logND, c("t1_OCDD", "t1_TCDF", "t1_HxCDF_234678"),
c("t2_OCDD", "t2_TCDF", "t2_HxCDF_234678"), ti="scatter plot matrix", bg="gold")
Run the code above in your browser using DataLab