Update as.R

quick fix in line 84