# NOT RUN {
if(!adegraphicsLoaded()) {
rw <- function(a) {
x <- 0
for(i in 1:49) x <- c(x, x[length(x)] + runif(1, -1, 1))
x
}
y <- unlist(lapply(1:5, rw))
x <- unlist(lapply(1:5, rw))
z <- gl(5, 50)
s.traject(data.frame(x, y), z, edge = FALSE)
}
# }
Run the code above in your browser using DataLab