try this: > x <- read.table(textConnection("plot plantno. species + H 31 ABC + D 2 DEF + Y 54 GFE + E 12 ERF + Y 98 FVD + H 4 JKU + J 7 JFG + A 55 EGD"), header=TRUE, as.is=TRUE) > closeAllConnections() > # chose 10 groups of 3 sample > choice <- lapply(1:10, function(.dummy){ + x[sample(nrow(x),3),] + }) > > choice [[1]] plot plantno. species 3 Y 54 GFE 8 A 55 EGD 4 E 12 ERF
[[2]] plot plantno. species 8 A 55 EGD 2 D 2 DEF 6 H 4 JKU [[3]] plot plantno. species 8 A 55 EGD 5 Y 98 FVD 4 E 12 ERF ........ On Sun, May 23, 2010 at 10:00 AM, Kang Min <ngokang...@gmail.com> wrote: > Hi, > > I have a dataset that looks like the one below. > > data > plot plantno. species > H 31 ABC > D 2 DEF > Y 54 GFE > E 12 ERF > Y 98 FVD > H 4 JKU > J 7 JFG > A 55 EGD > . . . > . . . > . . . > > I want to select rows belonging to 7 random plots for 100 times. > (There are 50 plots in total) > So I created a list of 100 vectors, each vector has 7 elements. > > samp <- lapply(1:100, function(i) sample(LETTERS)) > samp2 <- lapply(samp2, "[", 1:7) > > How can I select the 26 plots from 'data' using 'samp'? > > samp3 <- sample(LETTERS, 7) > samp4 <- subset(data, plot %in% samp3) # this works > samp5 <- subset(data, plot %in% samp2[[1]]) # this works as well, but > I used a for loop to get it to select 7 plots 100 times. > > for (i in nrow(samp2)) { > samp6 <- subset(data, plot %in% samp2[[i]]) > } # this doesn't work > > > Am I missing something, or is there a better solution? > > Thanks. > Kang Min > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > -- Jim Holtman Cincinnati, OH +1 513 646 9390 What is the problem that you are trying to solve? ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.