sample下标出界错误
1.用以下两个代码查找,哪些样本名出了问题
missing_cols <- setdiff(sample1, colnames(data))
if (length(missing_cols) > 0) {
stop(paste("The following columns are not in data matrix:", paste(missing_cols, collapse = ", ")))
#}
all(sample1 %in% colnames(data))