Update ars.R

change "flag" to flag, sytax error