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 ) )
})
Run the code above in your browser using DataLab