R scripts for NMIS