upload prelim codes filterTopTable.R