Added national pop r script