zmax <- ipairs(airquality,pixs=2,main="Air Quality")
ipairs(airquality,pixs=2,zmax=zmax,border=TRUE)
## example with factors
zmax <- ipairs(iris,pixs=2)
ipairs(iris,pixs=2,zmax=zmax)
## a really huge dataset
if(require(SwissAir)) {
data(AirQual)
## low correlation
ipairs(AirQual[,c("ad.O3","lu.O3","sz.O3")],
ztransf=function(x){x[x<1] <- 1; log2(x)*10})
ipairs(AirQual[,c("ad.NO","lu.NO","sz.NO")],
ztransf=function(x){x[x<1] <- 1; log2(x)*10})
## high correlation
Ox <- AirQual[,c("ad.O3","lu.O3","sz.O3")]+
AirQual[,c("ad.NOx","lu.NOx","sz.NOx")]-
AirQual[,c("ad.NO","lu.NO","sz.NO")]
names(Ox) <- c("ad","lu","sz")
ipairs(Ox,cex.lab=2, ztransf=function(x){x[x<1] <- 1; log2(x)*10})
## cf. ?AirQual for the explanation of the physical and
## chemical background
} else print("Package SwissAir is not available")
Run the code above in your browser using DataLab