memory.size()
## [1] 14.25
memory.limit()
## [1] 1535
ls
## function (name, pos = -1L, envir = as.environment(pos), all.names = FALSE,
## pattern, sorted = TRUE)
## {
## if (!missing(name)) {
## pos <- tryCatch(name, error = function(e) e)
## if (inherits(pos, "error")) {
## name <- substitute(name)
## if (!is.character(name))
## name <- deparse(name)
## warning(gettextf("%s converted to character string",
## sQuote(name)), domain = NA)
## pos <- name
## }
## }
## all.names <- .Internal(ls(envir, all.names, sorted))
## if (!missing(pattern)) {
## if ((ll <- length(grep("[", pattern, fixed = TRUE))) &&
## ll != length(grep("]", pattern, fixed = TRUE))) {
## if (pattern == "[") {
## pattern <- "\\["
## warning("replaced regular expression pattern '[' by '\\\\['")
## }
## else if (length(grep("[^\\\\]\\[<-", pattern))) {
## pattern <- sub("\\[<-", "\\\\\\[<-", pattern)
## warning("replaced '[<-' by '\\\\[<-' in regular expression pattern")
## }
## }
## grep(pattern, all.names, value = TRUE)
## }
## else all.names
## }
## <bytecode: 0x039bbb58>
## <environment: namespace:base>
memory.limit()
## [1] 1535
memory.size()
## [1] 14.65
ls()
## character(0)
giri = c(1,2,3)
rm(Giri)
## Warning in rm(Giri): object 'Giri' not found
gc()
## used (Mb) gc trigger (Mb) max used (Mb)
## Ncells 302948 8.1 592000 15.9 386479 10.4
## Vcells 331698 2.6 786432 6.0 677338 5.2
rm(list = ls())
ls()
## character(0)
Giri=rnorm(100000)
memory.size()
## [1] 15.82
memory.limit()
## [1] 1535
memory.profile()
## NULL symbol pairlist closure environment promise
## 1 8599 150271 3447 860 6525
## language special builtin char logical integer
## 41270 45 667 10154 5478 16042
## double complex character ... any list
## 1384 1 34400 2 0 11335
## expression bytecode externalptr weakref raw S4
## 17 8351 2115 588 590 875
object.size(Giri)
## 800024 bytes