modify dat1[sample(1:nrow(dat1),6),]