Re: [R] paste together a string object later to be utilized in a function

From: moleps <moleps2_at_gmail.com>
Date: Mon, 07 Jun 2010 22:57:56 +0200

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.snow_at_imail.org
> 801.408.8111
> 
> 

>> -----Original Message-----
>> From: r-help-bounces_at_r-project.org [mailto:r-help-bounces_at_r-
>> project.org] On Behalf Of moleps
>> Sent: Sunday, June 06, 2010 1:51 PM
>> To: r-help_at_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_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.


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. Received on Mon 07 Jun 2010 - 21:37:49 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Mon 07 Jun 2010 - 22:00:29 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive