Update barplot_R_from_table.r

edited test section