Changed subset to deal with single markers

added drop=F