Sorry for bothering all of you. In the end it turned out to be much simpler than I thought. Takes a while to get used to the vectorizing idea.
require(survival) require(ggplot2) ggkm<-function(time,event,stratum) { stratum<-as.factor(stratum) m2s<-Surv(time,as.numeric(event)) fit <- survfit(m2s ~ stratum) w<-fit$time k<-fit$surv o<-length(levels(stratum)) strata<-c(rep(names(fit$strata[1:o]),fit$strata[1:o])) upper<-fit$upper lower<-fit$lower f<-data.frame(w,k,strata,upper,lower) r<-ggplot (f,aes(x=w,y=k,fill=strata,group=strata))+geom_line(aes(color=strata))+geom_ribbon(aes(ymin=lower,ymax=upper),alpha=0.3)+xlim(0,fit$maxtime)+ylim(0,1) r<-r+scale_fill_brewer(f$strata,palette="Set1")+scale_color_brewer(f$strata,palette="Set1") return(r) } data(lung) with(lung,ggkm(time,status,sex)) with(lung,ggkm(time,status,pat.karno)) //M On 7. juni 2010, at 22.31, Greg Snow wrote: > Does the collapse argument to the paste function do what you want? Possibly > nested inside another paste. > > -- > Gregory (Greg) L. Snow Ph.D. > Statistical Data Center > Intermountain Healthcare > greg.s...@imail.org > 801.408.8111 > > >> -----Original Message----- >> From: r-help-boun...@r-project.org [mailto:r-help-boun...@r- >> project.org] On Behalf Of moleps >> Sent: Sunday, June 06, 2010 1:51 PM >> To: r-help@r-project.org >> Subject: [R] paste together a string object later to be utilized in a >> function >> >> Dear r-listers, >> >> I need to pass a string to a function. However the length of the string >> is dependent on the length of a vector. >> >> >> b<-length(h) >> v<-paste("rep(names(ts$a[",1:b,"]),ts$a[",1:b,"])",sep="") >> >> >> Is it possible somehow to pass this as an argument to a function later >> on ? >> >> >> >> Regards, >> >> //M >> >> ______________________________________________ >> 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. ______________________________________________ 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.