Add interactive plot to the slides

2025-05-23 23:45:45 +02:00
parent b6f7263b12
commit c96022c7b2
3 changed files with 255 additions and 5 deletions
--- a/25_07_phd_defense/assets/make_knots_data.R
+++ b/25_07_phd_defense/assets/make_knots_data.R
@@ -8,7 +8,7 @@ library(readr)
 # Creating faceted plots for different knot values and mu values
 # Create a function to generate the data for a given number of knots and mu value
 generate_basis_data <- function(num_knots, mu_value, sig_value, nonc_value, tailw_value, deg_value) {
-  grid <- seq(from = 0.01, to = 0.99, length.out = 50)
+  grid <- seq(from = 0.01, to = 0.99, length.out = 99)
  # Use provided degree
  B <- profoc:::make_basis_matrix(grid,
    profoc::make_knots(