Fix bug -- Check issues #39 #37
cur_pm <- pm[, grepl(paste0('^',cur_sample, "#"), colnames(pm))]
By including the '^' at the start of the regular expression, we're ensuring that only columns whose names start with cur_sample are selected, preventing unintended matches.
