Description Usage Arguments Details Examples
Draw the path that the geodesics took.
1 | path_curves(history, data=attr(history, "data"))
|
history |
list of bases produced by |
data |
dataset to be projected on to bases |
This computes the projected values of each observation at each step, and allows you to recreate static views of the animated plots.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | path1d <- save_history(flea[, 1:6], grand_tour(1), 10)
path2d <- save_history(flea[, 1:6], grand_tour(2), 10)
plot(path_curves(path1d))
plot(path_curves(interpolate(path1d)))
plot(path_curves(path2d))
plot(path_curves(interpolate(path2d)))
# Instead of relying on the built in plot method, you might want to
# generate your own. Here are few examples of alternative displays:
df <- path_curves(path2d)
qplot(step, value, data = df, group = obs:var, geom = "line", colour=var) + facet_wrap( ~ obs)
qplot(`1`, `2`, data = cast(df, ... ~ var)) +
facet_wrap( ~ step) +
coord_equal()
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.