Completed rewrite of vectorised rSurvey.r; in processes of testing and implementing latter; need to finish comments and make sure return list type is ok and works with rRepSurvey.r