longer object length is not a mu

整理一个warning，一开始以为是普通的警告不以为然，后面发现是一个错误，直接导致运算结果不同
提取rt中4、5字符等于02,03,04的列
原代码：

rt_nor <- rt[,substr(colnames(rt),4,5)==c("02","03","04")]

使用原代码提示longer object length is not a multiple of shorter object length，提取数量较实际数量少

修改：

rt_nor <- rt[,substr(colnames(rt),4,5)%in%c("02","03","04")]