5番目のフィールドにHとある場合のスコア(4番目フィールド)だけをベクトルに入れる

for (i in 1:nrow(MITP)){
if (MITP[i,5]==”H”){
TPH <- c(TPH, MITP[i,4])
}
}