Hi listers, I have the following code... data<-as.matrix(c(1,2,3,4,5,6,7,8,9,10),nrow=10,ncol=1,byrow=TRUE) n<-nrow(data) m<-n-1 boot<-data[sample(m,replace=T),] So, I need to count the number of times each observation was selected at the sample with replacement... Suppose I sampled... 4 5 1 3 7 5 1 4 7 So, I would count... x count 1 2 2 0 3 1 4 2 5 2 6 0 7 2 8 0 9 0 10 0 Thanks in advance, Marcio -- View this message in context: http://www.nabble.com/Count-observation-tp23987251p23987251.html Sent from the R help mailing list archive at Nabble.com.
Hi Marcio, data.frame(table(boot)) ? milton brazil=toronto On Thu, Jun 11, 2009 at 3:13 PM, MarcioRibeiro <mestat@pop.com.br> wrote:> > Hi listers, > I have the following code... > > data<-as.matrix(c(1,2,3,4,5,6,7,8,9,10),nrow=10,ncol=1,byrow=TRUE) > n<-nrow(data) > m<-n-1 > boot<-data[sample(m,replace=T),] > > So, I need to count the number of times each observation was selected at > the > sample with replacement... > Suppose I sampled... > 4 5 1 3 7 5 1 4 7 > > So, I would count... > x count > 1 2 > 2 0 > 3 1 > 4 2 > 5 2 > 6 0 > 7 2 > 8 0 > 9 0 > 10 0 > > Thanks in advance, > Marcio > -- > View this message in context: > http://www.nabble.com/Count-observation-tp23987251p23987251.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > 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<http://www.r-project.org/posting-guide.html> > and provide commented, minimal, self-contained, reproducible code. >[[alternative HTML version deleted]]
Dear Marcio, Here is one way. Please notice that even thought I changed the name of your data as well as its structure, you can easily modify it to your needs. # Data somedata <- 1:10 n<-length(somedata) m<-n-1 # 1 sample boot <- somedata[ sample(m,replace=T) ] table(factor( boot, levels=1:10 ) ) # 100 samples boots <- replicate(100, somedata[ sample(m,replace=T)] ) # The counts apply(boots, 2, function(x) table(factor(x,levels=1:10)) ) see ?replicate, and ?apply for more information. HTH, Jorge On Thu, Jun 11, 2009 at 3:13 PM, MarcioRibeiro <mestat@pop.com.br> wrote:> > Hi listers, > I have the following code... > > data<-as.matrix(c(1,2,3,4,5,6,7,8,9,10),nrow=10,ncol=1,byrow=TRUE) > n<-nrow(data) > m<-n-1 > boot<-data[sample(m,replace=T),] > > So, I need to count the number of times each observation was selected at > the > sample with replacement... > Suppose I sampled... > 4 5 1 3 7 5 1 4 7 > > So, I would count... > x count > 1 2 > 2 0 > 3 1 > 4 2 > 5 2 > 6 0 > 7 2 > 8 0 > 9 0 > 10 0 > > Thanks in advance, > Marcio > -- > View this message in context: > http://www.nabble.com/Count-observation-tp23987251p23987251.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > 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. >[[alternative HTML version deleted]]
Hey... Milton... Is that a equation... Brazil=Toronto If so, mine is... Brazil=Montreal You got it... I am not having a good time with R... There is no help for data manipulation at all... Thanks for the help... Marcio milton ruser wrote:> > Hi Marcio, > > data.frame(table(boot)) > ? > > milton > brazil=toronto > On Thu, Jun 11, 2009 at 3:13 PM, MarcioRibeiro <mestat at pop.com.br> wrote: > >> >> Hi listers, >> I have the following code... >> >> data<-as.matrix(c(1,2,3,4,5,6,7,8,9,10),nrow=10,ncol=1,byrow=TRUE) >> n<-nrow(data) >> m<-n-1 >> boot<-data[sample(m,replace=T),] >> >> So, I need to count the number of times each observation was selected at >> the >> sample with replacement... >> Suppose I sampled... >> 4 5 1 3 7 5 1 4 7 >> >> So, I would count... >> x count >> 1 2 >> 2 0 >> 3 1 >> 4 2 >> 5 2 >> 6 0 >> 7 2 >> 8 0 >> 9 0 >> 10 0 >> >> Thanks in advance, >> Marcio >> -- >> View this message in context: >> http://www.nabble.com/Count-observation-tp23987251p23987251.html >> Sent from the R help mailing list archive at Nabble.com. >> >> ______________________________________________ >> R-help at 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<http://www.r-project.org/posting-guide.html> >> and provide commented, minimal, self-contained, reproducible code. >> > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help at 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. > >-- View this message in context: http://www.nabble.com/Count-observation-tp23987251p23988982.html Sent from the R help mailing list archive at Nabble.com.
Try this also: cbind(data, tabulate(boot, nbins=nrow(data))) On Thu, Jun 11, 2009 at 4:13 PM, MarcioRibeiro <mestat@pop.com.br> wrote:> > Hi listers, > I have the following code... > > data<-as.matrix(c(1,2,3,4,5,6,7,8,9,10),nrow=10,ncol=1,byrow=TRUE) > n<-nrow(data) > m<-n-1 > boot<-data[sample(m,replace=T),] > > So, I need to count the number of times each observation was selected at > the > sample with replacement... > Suppose I sampled... > 4 5 1 3 7 5 1 4 7 > > So, I would count... > x count > 1 2 > 2 0 > 3 1 > 4 2 > 5 2 > 6 0 > 7 2 > 8 0 > 9 0 > 10 0 > > Thanks in advance, > Marcio > -- > View this message in context: > http://www.nabble.com/Count-observation-tp23987251p23987251.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > 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. >-- Henrique Dallazuanna Curitiba-Paraná-Brasil 25° 25' 40" S 49° 16' 22" O [[alternative HTML version deleted]]