gistfile1.r

function(x) {
  k.indices <- grep('k', x)
  M.indices <- grep('M', x)
  G.indices <- grep('G', x)
  nums <- as.numeric(gsub("[kMG]", "", x))
  nums[k.indices] <- nums[k.indices] * 1000
  nums[M.indices] <- nums[M.indices] * 1000000
  nums[G.indices] <- nums[G.indices] * 1000000000
  nums
}