bogdan romocea wrote:

Here's something that works. I'm sure there are better solutions (in
particular the paste part - I couldn't figure out how to avoid typing
a[i,1], ..., a[i,10]).

a <- matrix(nrow=1000,ncol=10)
for (i in 1:1000)
        for (j in 1:10)
                a[i,j] <- sample(1:0,1)

b <- vector(mode="character")
for (i in 1:1000)
b[i] <- paste(a[i,1],a[i,2],a[i,3],a[i,4],a[i,5],
a[i,6],a[i,7],a[i,8],a[i,9],a[i,10],sep="")


Or

b <- apply(a, 1, function(x) paste(x, sep="", collapse=""))

Kjetil

#the most frequent row
table(b)[table(b) == max(table(b))]

HTH,
b.


-----Original Message----- From: Lisa Pappas [mailto:[EMAIL PROTECTED] Sent: Thursday, December 09, 2004 5:15 PM To: [EMAIL PROTECTED] Subject: [R] finding the most frequent row


I am bootstrapping using a function that I have defined. The
"Statistic" of the function is an array of 10 numbers. Therefore if
I use 1000 replications, the "t" matrix will have 1000 rows each of
which is a bootstrap replicate of this 10 number array (10 columns). Is there any easy way in R to determine which row appears the most
frequently?


Thanks,
Lisa Pappas

Huntsman Cancer Institute wishes to promote open communication while
protecting confidential and/or privileged information.  If you have
received this message in error, please inform the sender and delete
all copies.

______________________________________________
[EMAIL PROTECTED] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html

______________________________________________
[EMAIL PROTECTED] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html






--

Kjetil Halvorsen.

Peace is the most effective weapon of mass construction.
              --  Mahdi Elmandjra

______________________________________________
[EMAIL PROTECTED] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html

Reply via email to