# NOT RUN {
testdata <- data.frame(height=c(4, 5, 3, 2, 100),
weight=c(39, 88, NA, 15, -2),
names=c("Bill","Dean", "Sam", NA, "Jane"),
race=c('b', 'w', 'w', 'o', 'b'))
x <- contents(testdata)
print(x)
# }
Run the code above in your browser using DataLab