## Test data
test <- data.frame(V1=c(1, 2, 3, 4, 5),
V2=c(NA, 2, 3, 4, 5),
V3=c(1, NA, NA, NA, NA),
V4=c(1, 2, 3, NA, NA))
## Number of variable pairs
nPairs(x=test)
## Without names
nPairs(x=test, names=FALSE)
## Longer names
colnames(test) <- c("Variable1", "Variable2", "Variable3", "Variable4")
nPairs(x=test)
## Margin
nPairs(x=test, margin=TRUE)
## Summary
summary(object=nPairs(x=test))
Run the code above in your browser using DataLab