This is a simple example of simulation, inference, and prediction
with the aphylo
R package.
## Loading required package: ape
The simulation function generates an aphylo
class object
which is simply a wrapper containing:
phylo
tree (from the ape package),
andIf needed, we can export the data as follows:
# Edgelist describing parent->offspring relations
write.csv(x$tree, file = "tree.tree", row.names = FALSE)
# Tip annotations
ann <- with(x, rbind(tip.annotation, node.annotation))
write.csv(ann, file = "annotations.csv", row.names = FALSE)
# Event types
events <- with(x, cbind(c(tip.type*NA, node.type)))
rownames(events) <- 1:nrow(events)
write.csv(events, file = "events.csv", row.names = FALSE)
To fit the data, we can use MCMC as follows:
## Warning: While using multiple chains, a single initial point has been passed
## via `initial`: c(0.1, 0.05, 0.9, 0.5, 0.1, 0.05, 0.5). The values will be
## recycled. Ideally you would want to start each chain from different locations.
## Convergence has been reached with 10000 steps. Gelman-Rubin's R: 1.0187. (500 final count of samples).
##
## ESTIMATION OF ANNOTATED PHYLOGENETIC TREE
##
## Call: aphylo_mcmc(model = x ~ psi + mu_d + mu_s + Pi)
## LogLik: -109.0041
## Method used: mcmc (10000 steps)
## # of Leafs: 200
## # of Functions 1
## # of Trees: 1
##
## Estimate Std. Err.
## psi0 0.0736 0.0563
## psi1 0.0609 0.0397
## mu_d0 0.2212 0.1261
## mu_d1 0.1421 0.1039
## mu_s0 0.1297 0.0448
## mu_s1 0.0587 0.0315
## Pi 0.3493 0.2525
For goodness-of-fit analysis, we have a couple of tools. We can compare the predicted values with the observed values:
We can also take a look at the surface of the posterior function
And we can also take a look at the prediction scores
## Prediction score (H0: Observed = Random)
##
## N obs. : 399
## alpha(0, 1) : 0.41, 0.59
## Observed : 0.71 ***
## Random : 0.52
## P(<t) : 0.0000
## --------------------------------------------------------------------------------
## Values scaled to range between 0 and 1, 1 being best.
##
## Significance levels: *** p < .01, ** p < .05, * p < .10
## AUC 0.85.
## MAE 0.29.