Switch shape parameters in beta knot distribution

This is more intuitive as more knots will end up in the lower tail if mu is decreased.
BerriJ · Mar 2, 2023 · fec3dfa · fec3dfa
1 parent 48fcb4b
commit fec3dfa
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/splines.R b/R/splines.R
@@ -1,6 +1,6 @@
 pgbeta <- function(x, mu = .5, sig = 1, nonc = 0) {
-    a <- mu * sig * 2
-    b <- (1 - mu) * sig * 2
+    a <- (1 - mu) * sig * 2
+    b <- mu * sig * 2
     c <- abs(nonc)
     seq_beta <- pbeta(x, a, b, c)
     if (nonc < 0) seq_beta <- rev(1 - seq_beta)