potential speedup, moving INTEGER(.) and REAL(.) out of loops.
related cosmetic


git-svn-id: https://svn.r-project.org/R/trunk@66768 00db46b3-68df-0310-9c12-caf00c1e9a41
bw.SJ(<.., NA>): fixing PR#16024

git-svn-id: https://svn.r-project.org/R/trunk@66769 00db46b3-68df-0310-9c12-caf00c1e9a41