From de3f7ca40775de094b12c0c1bed776007caa5d2e Mon Sep 17 00:00:00 2001
From: Jonathan Berrisch <Jonathan@Berrisch.biz>
Date: Sun, 18 May 2025 01:58:20 +0200
Subject: [PATCH] Simplify data basis

---
 test.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/test.R b/test.R
index 56f6781..6ef5143 100644
--- a/test.R
+++ b/test.R
@@ -8,7 +8,8 @@ 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) {
-  B <- profoc:::make_basis_matrix(1:99 / 100,
+  grid <- seq(0, 1, length.out = 20)
+  B <- profoc:::make_basis_matrix(grid,
     profoc::make_knots(
       n = num_knots,
       mu = mu_value,
@@ -19,7 +20,7 @@ generate_basis_data <- function(num_knots, mu_value) {
     deg = 3
   )
   df <- as.data.frame(as.matrix(B))
-  df$x <- 1:99 / 100
+  df$x <- grid
   df_long <- pivot_longer(df,
     cols = -x,
     names_to = "b",