initial. work and tested
replace sapply by for in loop
remove debug comments
all work correct
Merge /media/wr/R Programming/materials/Assignment 1/pm.bench.shiny