R help - Sep 2011 - demo creating

R experts:

I want to prepare a demo (that will play sequentially in clicks) for a
presentation tutorial...Can somebody help me how can I write a demo, suppose
the following are steps in the demo..

#start
set.seed(1345)
x1 <- sample(letters[1:10], 5)
x1
sort(x1)
x <- sample(1:10, 5)
 y <- sample(c(11:20), 5)
require(lattice)
plot(x,y)
z <- rnorm(5, 1, 0.5)
dataframe <- data.frame(x, y, z)
model1 <- lm(y ~x)
aov(model1)
#end
Please help me, I could not get proper function / package to it.

	[[alternative HTML version deleted]]

Hi,
it is not clear to me what your exact request is.
If you want to integrate R code in a presentation, using sweave with
the beamer class is an option.
2011/9/15 John Clark <rosbreed.pba at gmail.com>:
> R experts:
>
> I want to prepare a demo (that will play sequentially in clicks) for a
> presentation tutorial...Can somebody help me how can I write a demo,
suppose
> the following are steps in the demo..
>
> #start
> set.seed(1345)
> x1 <- sample(letters[1:10], 5)
> x1
> sort(x1)
> x <- sample(1:10, 5)
> ?y <- sample(c(11:20), 5)
> require(lattice)
> plot(x,y)
> z <- rnorm(5, 1, 0.5)
> dataframe <- data.frame(x, y, z)
> model1 <- lm(y ~x)
> aov(model1)
> #end
> Please help me, I could not get proper function / package to it.
>
> ? ? ? ?[[alternative HTML version deleted]]
>
> ______________________________________________
> 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.
>

On 15/09/2011 10:22 PM, John Clark wrote:
> R experts:
>
> I want to prepare a demo (that will play sequentially in clicks) for a
> presentation tutorial...Can somebody help me how can I write a demo,
suppose
> the following are steps in the demo..
>
> #start
> set.seed(1345)
> x1<- sample(letters[1:10], 5)
> x1
> sort(x1)
> x<- sample(1:10, 5)
>   y<- sample(c(11:20), 5)
> require(lattice)
> plot(x,y)
> z<- rnorm(5, 1, 0.5)
> dataframe<- data.frame(x, y, z)
> model1<- lm(y ~x)
> aov(model1)
> #end
> Please help me, I could not get proper function / package to it.
I would use the tcltk package for this, but it does mean you need to 
learn the TCL/TK language.  For example, I have used this in a presentation:

demos <- function() {
     base <- tktoplevel()
     tkwm.title(base,"Demos")
     font <- "{Arial 24}"
     tkpack(tkbutton(base, command=PointCloud, text="Point cloud", 
font=font), side="left")
     tkpack(tkbutton(base, command=Volcano, text="Volcano",
font=font),
side="left")
     tkpack(tkbutton(base, command=ChangeColour, text="Change colour",
font=font), side="left")
     tkpack(tkbutton(base, command=SmoothingDemo, text="Smoothing", 
font=font), side="left")
}

PointCloud, Volcano, ChangeColour, and SmoothingDemo are regular R 
functions, called with no arguments when you click on their button.

Duncan Murdoch