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