# NOT RUN {
set.seed(223);
simple.data1 <- data.frame(
x = sample(1:15, 10),
y = LETTERS[1:10]
);
simple.data2 <- data.frame(
x = sample(1:15, 10),
y = LETTERS[1:10]
);
simple.data3 <- data.frame(
x = sample(1:15, 10),
y = LETTERS[1:10]
);
p = list(
list(formula = x ~ y,data = simple.data1, yat = seq(0,16,2)),
list(formula = x ~ y,data = simple.data2, yat = seq(0,16,2)),
list(formula = x ~ y,data = simple.data3, yat = seq(0,16,2))
)
create.gif(
exec.func = create.barplot,
parameters = p,
number.of.frames = 3,
delay = 20,
filename = paste0(tempdir(),'/test.gif')
)
# }
Run the code above in your browser using DataLab