## Not run:
# local({
# bigDF <- as.data.frame( matrix( factor(1:1E3), nrow=1E3, ncol=1E3 ) )
# sink( tmp <- tempfile() )
# str <- system.time( str(bigDF, list.len=1E3) )
# anat <- system.time( anat(bigDF) )
# sink()
# unlink(tmp)
# print( rbind( str, anat ) )
# })
# ## End(Not run)
Run the code above in your browser using DataLab