a <- c(1:10) b <- c(.5, .6, .9, 10, .4, 3, 4, 9, 0, 11) d <- c(21:30)
z <- data.frame(a,b,d) library(fields) results <- c() for(i in 1:(length(rownames(z))-1)){ results[i] <- rdist(z[i,], z[(i+1),]) } results.1 <- data.frame(results) f <- rownames(z) r <- f[-1] rownames(results.1) <- r colnames(results.1) <- f[1] This is a for loop that I used not too long ago defining the results outside of the loop worked for me. hope this helps stephen On Thu, Oct 16, 2008 at 9:10 AM, Alex99 <[EMAIL PROTECTED]> wrote: > > > Hi everyone, > I have dataset which I take random samples of it 5 times. each time I get > the mean for rows for each sample. > at the end I need to calculate the Average of all means for each sample and > each row. to clear it up I give an example: > say this is my dataset. > X8 X9X10X12 X13 X14 X15 X16X17X18X19 X20 X21 X22 > s1 0 1 0 0 0 1 0 0 0 0 0 0 0 0 > s2 0 0 0 0 1 0 0 0 0 0 0 0 1 0 > s3 0 1 0 0 0 0 0 0 0 0 0 0 1 0 > s4 1 0 0 0 1 0 0 0 0 1 0 0 0 0 > > I get a random sample and mean of row for that sample(5 times , but I just > put 2 of them here to give you an idea) > > X12 X9 X10 > s1 0 1 0 > s2 0 0 0 > s3 0 1 0 > s4 0 0 0 > s1 s2 s3 s4 > 0.3333333 0.0000000 0.3333333 0.0000000 > > X10 X18 X8 > s1 0 0 0 > s2 0 0 0 > s3 0 0 0 > s4 0 1 1 > s1 s2 s3 s4 > 0.0000000 0.0000000 0.0000000 0.6666667 > > This is the code I used: > for(i in 1:5) > { > temp<-sample(A3,3, replace=F) > Avg=rowMeans(temp) > show(temp) > show(Avg) > } > > Now, the problem is how can I save the result for each row(s1,s2,s3,s4) so > that I can get the grand average from 5 runs?I thought about using a vector > in the "for" loop but it's no good, it over right so basically I only get > the means for last sample. any idea how to do it? > Thanks a lot > > -- > View this message in context: > http://www.nabble.com/saving-result-of-a-%22for%22-loop-tp20013519p20013519.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. > -- Stephen Sefick Research Scientist Southeastern Natural Sciences Academy Let's not spend our time and resources thinking about things that are so little or so large that all they really do for us is puff us up and make us feel like gods. We are mammals, and have not exhausted the annoying little problems of being mammals. -K. Mullis ______________________________________________ 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.