# NOT RUN {
## Small numbers of different values are plotted nicer
## when converted to factors
AQ <- airquality
AQ$Month <- as.factor(AQ$Month)
zmax <- ipairs(AQ, pixs=2, main="Air Quality")
ipairs(AQ, pixs=2, zmax=zmax, main="Air Quality",border=TRUE)
## example with factors
ipairs(iris,pixs=2)
## a really huge dataset
# }
# NOT RUN {
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)})
ipairs(AirQual[,c("ad.NO","lu.NO","sz.NO")],
ztransf=function(x){x[x<1] <- 1; log2(x)})
## 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, ztransf=function(x){x[x<1] <- 1; log2(x)})
## 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