ls()
## character(0)
rm(list=ls())
gc()
##          used (Mb) gc trigger (Mb) max used (Mb)
## Ncells 358633 19.2     592000 31.7   460000 24.6
## Vcells 546668  4.2    1023718  7.9   838980  6.5
numlistr=c("$10000","$20,000","30,000",40000,"50000   ")
mean(numlistr)
## Warning in mean.default(numlistr): argument is not numeric or logical:
## returning NA
## [1] NA
numlistr=gsub(",","",numlistr)
numlistr
## [1] "$10000"   "$20000"   "30000"    "40000"    "50000   "
numlistr=gsub("\\$","",numlistr)
numlistr
## [1] "10000"    "20000"    "30000"    "40000"    "50000   "
numlistr=as.numeric(numlistr)
numlistr
## [1] 10000 20000 30000 40000 50000
mean(numlistr)
## [1] 30000