``` library(lobstr) n <- 1.343E8 largeframe <- data.frame(runif(n), sample(LETTERS, n, T), sample(letters, n, T)) largecopy <- largeframe obj_size(largeframe, largecopy) obj_sizes(largeframe, largecopy) ```