v <- rbind(c(1,0.5,0.2),c(0.5,1,0.9),c(0.2,0.9,1))
x <- rmvn(500, rep(5,3), v)
colnames(x) <- c("V1", "V2", "V3")
group_col <- sample(crayons(c("Blue","Red")), 500, repl=TRUE)
mypairs(x, pch=21, bg=group_col)
# add some missing data to the first two columns
for(i in 1:2) x[sample(500, 20),i] <- NA
mypairs(x, pch=21, bg=group_col)
mypairs(x, pch=21, bg=group_col, show_na=FALSE)
mypairs(x, pch=21, bg=group_col, force="both")
Run the code above in your browser using DataLab