[R] Returning combine output from R loop

[Abdul Rahman bin Kassim (Dr.)]

Dear Kane,

Great and thanks for the do.call function.

Abd Rahman
________________________________________
From: arun [smartpink111 at yahoo.com]
Sent: Saturday, June 01, 2013 12:23 AM
To: Abdul Rahman bin Kassim (Dr.)
Cc: R help; John Kane
Subject: Re: [R] Returning combine output from R loop

Hi,
You could reduce those steps by:
as.data.frame(do.call(rbind,a2))
A.K.



----- Original Message -----
From: Abdul Rahman bin Kassim (Dr.) <rahmank at frim.gov.my>
To: John Kane <jrkrideau at inbox.com>; "r-help at r-project.org" <r-help at r-project.org>
Cc:
Sent: Friday, May 31, 2013 11:47 AM
Subject: Re: [R] Returning combine output from R loop

Dear Kane,

Thanks for your response and improve R script. With additional R script below, my question has been resolved. Thanks again for your kind help.

b1<-data.frame(a2[1])
b2<-data.frame(a2[2])
b3<-data.frame(a2[3])

bb<-rbind(b1,b2,b3)

---
Abd Rahman
________________________________________
From: John Kane [jrkrideau at inbox.com]
Sent: Friday, May 31, 2013 10:33 PM
To: Abdul Rahman bin Kassim (Dr.); r-help at r-project.org
Subject: RE: [R] Returning combine output from R loop

One way is to put them in a list.

Does this help?

a0 <- data.frame(initial_size=sample(30,10),sp=gl(2,5,10),
  grow=as.numeric(as.character(gl(2,5,10)))*0.5)

a2<- list()
  for( i in 1:3){
  a1 <- a0$initial_size+a0$grow
  a2[[i]] <- cbind(sp=a0$sp,initial_size=a1+i,yr=i)
  }

John Kane
Kingston ON Canada


> -----Original Message-----
> From: rahmank at frim.gov.my
> Sent: Fri, 31 May 2013 06:36:58 +0000
> To: r-help at r-project.org
> Subject: [R] Returning combine output from R loop
>
> Dear R-User,
>
> Appreciate any advice on producing combine  output from an R loop.
> Planning to project the growth (grow) of  plant species (sp) from its
> initia size (initial_size). Using the follwing example, how can I produce
> the results combining the output from 3 iteration. The ouput a2 produce
> only the last iteration.
>
> Thanks in advanced for your advice.
> ---------
>   a0 <- data.frame(initial_size=sample(30,10),sp=gl(2,5,10),
>   grow=as.numeric(as.character(gl(2,5,10)))*0.5)
>
>   a2<-c(0)
>   for( i in 1:3)
>   {
>   a1 <- a0$initial_size+a0$grow
>   a2<- cbind(sp=a0$sp,initial_size=a1+i,yr=i)
>   a2}
>
> a2
> ---------
>
> Abd Rahman
>
>
>
>
> Dr. Abd Rahman Kassim
> Program Kualiti Air
> Bahagian Perhutanan & Alam Sekitar
> Institut Penyelidikan Perhutanan Malaysia
> Kepong 52109
> Selangor
>
> Fax:03-62729852
> Tel: 013-3380905/03-62797179
> Email: rahmank at frim.gov.my
>
> ________________________________
> For E-Mail Disclaimer, please click
> here<http://www.frim.gov.my/v1/support/general/email_disclaimer.cfm>
>
>       [[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.

____________________________________________________________
FREE 3D MARINE AQUARIUM SCREENSAVER - Watch dolphins, sharks & orcas on your desktop!


________________________________
For E-Mail Disclaimer, please click here<http://www.frim.gov.my/v1/support/general/email_disclaimer.cfm>

______________________________________________
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.

________________________________
For E-Mail Disclaimer, please click here<http://www.frim.gov.my/v1/support/general/email_disclaimer.cfm>