[R] R demos

[Douglas Bates]

On 6/24/05, Jim Brennan <jfbrennan at rogers.com> wrote:
> I have noticed that some data sets seem not to be available to me when I am
> running some of the examples or demos since I have changed versions. For
> example:
> demo(persp)
> 
> 
>         demo(persp)
>         ---- ~~~~~
> 
> Type  <Return>   to start :
> 
> R>if (dev.cur() <= 1) get(getOption("device"))()
> 
> R>is.dev.interactive <- .Device %in% c("X11", "GTK",
>     "gnome", "quartz", "windows", "JavaGD")
> 
> R>op <- par(ask = is.dev.interactive)
> 
> R>x <- seq(-10, 10, length = 50)
> 
> R>y <- x
> 
> R>rotsinc <- function(x, y) {
>     sinc <- function(x) {
>         y <- sin(x)/x
>         y[is.na(y)] <- 1
>         y
>     }
>     10 * sinc(sqrt(x^2 + y^2))
> }
> 
> R>sinc.exp <- expression(z == Sinc(sqrt(x^2 + y^2)))
> 
> R>z <- outer(x, y, rotsinc)
> 
> R>par(bg = "white")
> 
> R>persp(x, y, z, theta = 30, phi = 30, expand = 0.5,
>     col = "lightblue")
> Waiting to confirm page change...
> 
> R>title(sub = ".")
> 
> R>title(main = sinc.exp)
> 
> R>persp(x, y, z, theta = 30, phi = 30, expand = 0.5,
>     col = "lightblue", ltheta = 120, shade = 0.75, ticktype = "detailed",
>     xlab = "X", ylab = "Y", zlab = "Z")
> Waiting to confirm page change...
> 
> R>title(sub = ".")
> 
> R>title(main = sinc.exp)
> 
> R>z <- 2 * volcano
> Error in eval.with.vis(expr, envir, enclos) :
>         Object "volcano" not found
> 
> So most of this demo works but volcano is not found.
> Any ideas what may be going wrong.
> Also for example
> R>?reshape
> R>summary(Indometh)
> Error in summary(Indometh) : Object "Indometh" not found

For some reason you do not have the datasets package attached.

> find(Indometh)
[1] "package:datasets"
> find(volcano)
[1] "package:datasets"