Update upsampletable.R