Dumb error. Thanks for letting me know. Gerard
On Aug 15, 2013, at 11:38 AM, "Richard M. Heiberger" <r...@temple.edu> wrote: > typo > > run_plots <- functon() > > > On Thu, Aug 15, 2013 at 1:10 PM, Gerard Smits <g_sm...@verizon.net> wrote: > Hi All, > > I have a number of plots to run and was hoping to use a function instead of > bock copying my code and retyping my parameters. > > I am using R 3.0.0 on a mac. > > My code is as follows: > > library (car) > cres<-read.csv("//users//smits//r_work//cres.csv", header = TRUE) > attach(cres); > > run_plots <- functon() > { > scatterplot(y~x|z, > jitter=list(x=1, y=1), > grid=F, > smooth=F, > las=1, > pch=c(1,2), > col=c('red','blue'), > main="Baseline Clinical CRP by RAMRIS Synovitis at Day 113", > xlab="Baseline CRP", > ylab="Day 113 Synovitis", > legend.plot=F) > legend("bottomright", > box.lty=0, # line type to surround the legend box (0 for none) > legend=c("Active+MTX","Placebo+MTX"), > col=c('red','blue'), > pch=c(1,2), > pt.cex=c(1,1,1,1)) > } > > > then I was hoping to execute the function by passing 3 parameters: > run_plots(b_crp, t_synos113, treatment) > > This approach follows the way I usually do it with a SAS macro, were I can > repeat the innovation over and over using different variables, etc. > > Right off the bat, you can see that I have a problem finding the function > "function." Then it does not recognize the first parameter it comes across. > > Any help appreciated. > > Thanks, > > Gerard > > > > > > cres<-read.csv("//users//smits//r_work//cres.csv", header = TRUE) > > attach(cres); > > > > run_plots <- functon() > Error: could not find function "functon" > > { > + scatterplot(y~x|z, > + jitter=list(x=1, y=1), > + grid=F, > + smooth=F, > + las=1, > + pch=c(1,2), > + col=c('red','blue'), > + main="Baseline Clinical CRP by RAMRIS Synovitis at Day 113", > + xlab="Baseline CRP", > + ylab="Day 113 Synovitis", > + legend.plot=F) > + legend("bottomright", > + box.lty=0, # line type to surround the legend box (0 for none) > + legend=c("Active+MTX","Placebo+MTX"), > + col=c('red','blue'), > + pch=c(1,2), > + pt.cex=c(1,1,1,1)) > + } > Error in eval(expr, envir, enclos) : object 'y' not found > > > > ______________________________________________ > 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]] ______________________________________________ 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.