dat.sub <- subset(dat, Algorithm=="foo")