Version 0.8.8.5
Added ORCID
res[q <= 0] <- 0, from res[q < 0] <- 0