path <- system.file("extdata","primate-example.data.csv", package="mmodely")
data <- read.csv(path, row.names=1)
data$col <- c('yellow','red')[data$nocturnal+1]
plot.confound.grid(x=data, Y='OC', X='leap.pct', confounder='mass.Kg')
Run the code above in your browser using DataLab