It sounds like the data frame produced by Simulate() doesn't set the names
you want. You can probably fix this by including
colnames(Gestion) < c("B","T1",... # etc)
immediately after the simulation.
Can't confirm this without knowing which of the excel/R interface packages
you're using, but I'd be willing to be that if you asked R for
colnames(Gestion) you'd see "result 1", "result 2" etc
that show up in Excel
later.
Hope this helps -- feel free to let me know if this doesn't work,
Michael Weylandt
On Sat, Aug 13, 2011 at 10:50 AM, garciap <garciap@usal.es> wrote:
> Hi to all the people again,
>
> I was writting a simply function in R, and wish to collect the results in a
> excel file. The work goes as follows,
>
> Ciervos<-function(K1, K0, A, R,M,Pi,Hembras)
> {B<-(K1-K0)/A
> T1<-(R*Pi*Hembras-M*Pi+B)/(Pi-M*Pi+R*Pi*Hembras)
> P1<-Pi-B
> R1<-P1*Hembras*R
> M1<-P1*M
> T2<-(R1-M1+B)/(P1-M1+R1)
> P2<-P1-B
> R2<-P2*Hembras*R
> M2<-P2*M
> T3<-(R2-M2+B)/(P2-M2+R2)
> P3<-P2-B
> R3<-P3*Hembras*R
> M3<-P3*M
> T4<-(R3-M3+B)/(P3-M3+R3)
> P4<-P3-B
> R4<-P4*Hembras*R
> M4<-P4*M
> T5<-(R4-M4+B)/(P4-M4+R4)
> P5<-P4-B
> R5<-P5*Hembras*R
> M5<-P5*M
> T6<-(R5-M5+B)/(P5-M5+R5)
> P6<-P5-B
> R6<-P6*Hembras*R
> M6<-P6*M
> T7<-(R6-M6+B)/(P6-M6+R6)
> P7<-P6-B
> R7<-P7*Hembras*R
> M7<-P7*M
> T8<-(R7-M7+B)/(P7-M7+R7)
> P8<-P7-B
> R8<-P8*Hembras*R
> M8<-P8*M
> T9<-(R8-M8+B)/(P8-M8+R8)
> P9<-P8-B
> R9<-P9*Hembras*R
> M9<-P9*M
> T10<-(R9-M9+B)/(P9-M9+R9)
> P10<-P9-B
> R10<-P10*Hembras*R
> M10<-P10*M
>
>
result<-list(B,T1,P1,R1,M1,T2,P2,R2,M2,T3,P4,R4,M4,T5,P5,R5,M5,T6,P6,R6,T6,P7,R7,M7,T8,
> P8,R8,M8,T9,P9,R9,M9,T10,P10,R10,M10)
> return(result)
> }
>
>
> library(memisc)
> Gestion<-as.data.frame(Simulate(Ciervos(K1, K0, A, R,M,Pi,Hembras),
>
>
expand.grid(K1=c(420,580),K0=c(300,600),A=3,R=0.4,M=0.1,Pi=420,Hembras=0.5),nsim=1,seed=10000))
> xls.getshlib()
> write.xls(Gestion, "PoblacionCiervos.xls")
>
> All is fine with the function, by the results (the parameters from B to
> M10)
> are collected in excel by the column names "result 1",
"result 2", etc, and
> I wish to collect the results with their proper name (B instead of result
> 1;
> T1 instead of result 2, etc).
>
> I will ackonowledge any help, many thanks
>
> pablo
>
> --
> View this message in context:
> http://r.789695.n4.nabble.com/Own-R-function-doubt-tp3741463p3741463.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]]