r-script for plots now removing samples in common...