px
py
pw
pz
load("wrightscape.rda")
ggplot(subset(lr_dat, value > -10000 & value < 10000)) + geom_density(aes(value,
color = model), alpha = 0.8, color = c("blue", "red")) + facet_wrap(~trait,
scale = "free_y") + geom_vline(data = LR, aes(xintercept = value)) + ylab("likelihood ratio")
## Error: When _setting_ aesthetics, they may only take one value. Problems:
## colour
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.