[R] slide show with R
Berton Gunter
gunter.berton at gene.com
Tue Mar 29 23:20:31 CEST 2005
Oops, I should have said that you can execute the text line via the
construction:
eval(parse(text=textline))
-- Bert Gunter
Genentech Non-Clinical Statistics
South San Francisco, CA
"The business of the statistician is to catalyze the scientific learning
process." - George E. P. Box
> -----Original Message-----
> From: r-help-bounces at stat.math.ethz.ch
> [mailto:r-help-bounces at stat.math.ethz.ch] On Behalf Of
> George_Heine at blm.gov
> Sent: Tuesday, March 29, 2005 12:54 PM
> To: R-Help
> Subject: [R] slide show with R
>
>
>
>
>
> Trying to use R to build an interactive "slide show", to be
> displayed on a
> projector. The purpose of the presentation is to show how one could
> construct a simple graph using R. It is meant as a general
> overview rather
> than as detailed instruction.
>
> For example, something like the following sequence of commands. At
> lecture time, I want the interpreter to read these commands
> one at a time
> from a file, display and execute the command, (or two or
> three commands)
> and then wait for another prompt.
>
> pale.yellow="#ffff99"
> par(bg=pale.yellow)
> plot(c(0,2*pi),c(-1,1),type="n",ylab="",yaxt="n")
> mirror<-function(t) { c(t,rev(2*max(t)-t)) }
> z<-log(1:1000)/log(1000)
> zz<-z*pi/2
> zzz<-mirror(mirror(zz))
> polygon(zzz,sin(25*zzz)*sin(zzz),border="blue")
> polygon(zzz,sin(5*zzz)*sin(zzz),border="green")
> polygon(zzz,sin(zzz),lwd=2)
> points(zzz,rep(0,length(zzz)),col="red",pch="|")
>
>
> Wrapping the following around each command works, sort of :
>
> a<-expression(<command>)
> x<-readline(a)
> eval(a)
>
> However, this doesn't work properly for the function
> definition, and it
> gets very clumsy to display two or three lines as a block and then
> evaluate.
>
> Any help would be much appreciated.
>
>
> <>=<>=<>=<>=<>=<>=<>=<>=<>=<>=<>
> George Heine, PhD
> Mathematical Analyst
> National IRM Center
> U.S. Bureau of Land Management
> voice (303) 236-0099
> fax (303) 236-1974
> cell (303) 905-5382
> pager gheine at my2way.com
> <>=<>=<>=<>=<>=<>=<>=<>=<>=<>=<>
>
> ______________________________________________
> R-help at 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
>
More information about the R-help
mailing list