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