library(reshape)
options(digits=2)

head(french_fries)
ff_d <- melt(french_fries, id=1:4, preserve = F)
head(ff_d)
cast(ff_d, subject ~ time, length)
cast(ff_d, subject ~ time, function(x) 30 - length(x))

cast(ff_d, treatment ~ variable, length)
cast(ff_d, rep ~ variable, length)
cast(ff_d, time ~ variable, length)


# We need some graphics!
library(ggplot)

ggfluctuation(cast(ff_d, subject + time ~ . , length))
ggfluctuation(cast(ff_d, subject + time ~ . , function(x) 30 - length(x)))
ggfluctuation(cast(ff_d, subject + time ~ . , length), type="colour")

mmissing <- movies
mmissing[sample(nrow(movies), 1000), sample(ncol(movies), 5)] <- NA
ggmissing(mmissing)
ggmissing(mmissing, avoid="dodge")
pscontinuous(ggmissing(mmissing, avoid="dodge"), "y", transform=trans_sqrt, range=c(0, NA))
pscontinuous(ggmissing(mmissing), "y", transform=trans_log10, range=c(0, NA))

ggline(ggboxplot(ggpcp(mtcars)))
ggstructure(mtcars)
ggstructure(mtcars, scale="I")
ggstructure(mtcars, scale="range")
ggstructure(mtcars, scale="var")
ggorder(mtcars)