prediction(RN3,c(00.073068162,16,16,3,9))
Error in list.glm[[i]]$fitted.values :
  $ operator is invalid for atomic vectors