Martin R. Smith ms609

To use:

Install the Tampermonkey (or GreaseMonkey) browser plugin
Open the browser plugin and use the "+" button to add a script
Copy & paste the contents of wiley_pdf.js and elsevier.js to separate scripts
On the "settings" tab, enter the "Raw" URL in the "Updates→Update URL" field

For a more aggressive solution, see the Publication Auto-PDF scripts.

	# R implementation of the RevBayes function fnDiscretizeBeta
	# Martin R. Smith
	# 2024-12-05

	incompleteBeta <- function(a, b, x) {
	tol <- sqrt(.Machine[["double.eps"]])

	if (x <= 0) {
	0
	} else if (1 <= x) {


	poEdge <- Postorder(tree())$edge
	parent <- poEdge[, 1]
	child <- poEdge[, 2]
	xy <- matrix(0, parent[1], 2)
	xy[seq_len(NTip(tree())), ] <- mapping()
	for (node in unique(parent)) {
	xy[node, ] <- colMeans(xy[child[parent == node], , drop = FALSE])
	}
	segments(xy[parent, 1], xy[parent, 2],