Update subset.R

fix subset.eof