Nothing
flower <-
data.frame(V1 =
factor(c(1, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1),
labels = 0:1),
V2 =
factor(c(2, 1, 2, 1, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1),
labels = 0:1),
V3 =
factor(c(2, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 1, 2, 1, 1, 1, 2),
labels = 0:1),
V4 =
factor(c(4, 2, 3, 4, 5, 4, 4, 2, 3, 5, 5, 1, 1, 4, 3, 4, 2, 2)),
V5 =
ordered(c(3, 1, 3, 2, 2, 3, 3, 2, 1, 2, 3, 2, 2, 2, 2, 2, 2, 1)),
V6 =
ordered(c(15, 3,1,16, 2,12,13, 7, 4,14, 8, 9, 6,11,10,18,17, 5)),
V7 = c(25, 150, 150, 125, 20, 50, 40, 100, 25,
100, 45, 90, 20, 80, 40, 200, 150, 25),
V8 = c(15, 50, 50, 50, 15, 40, 20, 15, 15, 60,
10, 25, 10, 30, 20, 60, 60, 10)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.