# Plotting a 'poweRbal_data' object:
pc1 <- powerComp(tss = c("Sackin", "Colless", "B1I"),
alt_models = list(list("aldous",-1), "pda", "etm"),
n = 8L, N_null = 40L, N_alt = 20L)
plot(pc1)
# Plotting a power comparison with a tree model family
pc2 <- powerComp(tss = c("Sackin", "Colless", "B1I"),
alt_models = list(list("aldous", -1.5),
list("aldous", -1),list("aldous", -0.5),
list("aldous", 0),list("aldous", 0.5)),
n=20L, N_null = 20L, N_alt = 10L, distribs = "sampled")
# Create a bar plot or ...
plot(pc2)
# ... a line plot by specifying 'alt_model_params'.
plot(pc2, alt_model_params = c(-1.5,-1,-0.5,0,0.5),
tss_names = getTSSnames(c("Sackin", "Colless", "B1I")),
tss_colors = getTSScolors(c("Sackin", "Colless", "B1I")),
alt_model_family = c("Aldous\'", expression(beta)),
ylim = c(0,1))
Run the code above in your browser using DataLab