extract out flag argument in QALY_pop

[n8thangreen]

if (sum_res) {
op <- sum
}else{
op <- identity
}