Displaying 1 result from an estimated 1 matches for "exprtitle".
2006 Mar 02
0
Combining plaintext and plotmath expressions
...uot;,"~",text1,fixed=TRUE)
## see if we have a parsable expression
text2<-try(parse(text=parmlabel),silent=TRUE)
## if not parsable then concatenate another way
if(class(text2)=="try-error" | length(text2)==0){
text2<-gsub(" ","~",parmlabel)
exprtitle<-paste(text1,text2,sep="~")
} else{ exprtitle<-paste('"',text1,'~"*',text2,sep='') }
exprtitle<-paste(text1,text2,sep="~")
## if the variable op is not zero-length, then use oplabel
if(nchar(op)>1) exprtitle=paste(exprtitle,...