I do not understand why you play with 'substitute' instead of something like this:
# CAUTION: this will work only for bivariate case # plotmaking function plotModel <- function(m) { x <- m$model$x y <- m$model$y r2 <- summary(m)$r.squared plot(x,y) abline(m) text( min(x), max(y), paste("And the R^2 is", round(r2,3)), pos=4) invisible(NULL) } # your data x <- rnorm(100) y <- x + rnorm(100) lm1 <- lm(y~x) # make the plot plotModel(lm1) *** Note that my e-mail address has changed to [EMAIL PROTECTED] *** Please update your address books accordingly. Thank you! _________________________________________ Michal Bojanowski ICS / Sociology Utrecht University Heidelberglaan 2; 3584 CS Utrecht Room 1428 [EMAIL PROTECTED] http://www.fss.uu.nl/soc/bojanowski -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of remko duursma Sent: Tuesday, March 13, 2007 2:02 PM To: r-help@stat.math.ethz.ch Subject: [R] 'substitute' question # I use this code to label a graph with the R2: # graph x <- rnorm(100) y <- x + rnorm(100) lm1 <- lm(y~x) plot(x,y) # label R2text <- substitute(paste(R^2," = ",r2),list(r2=r2)) text(1,-3,R2text, col="red") # i have modified this a bit, so that i have a vector with other labels, each of which # will be labelled on the graph. Example: texts <- c("And the R2 is", R2text) x <- c(-2,-2) y <- c(2,1) for(i in 1:length(texts))text(x[i],y[i],texts[i],pos=4, col="blue") # As you can see the label "R2 = 48.7" remains at "paste(R^2, " = ", 48.7)" # What to do? Thanks for your help, Remko ..-~-.-~-.-~-.-~-.-~-.-~-.-~-.-~-.-~- Remko Duursma Post-doctoral researcher Dept. Forest Ecology University of Helsinki, Finland _________________________________________________________________ With tax season right around the corner, make sure to follow these few simple tips. ______________________________________________ R-help@stat.math.ethz.ch 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@stat.math.ethz.ch 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.