BerriJ/PHD-Presentation
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Simplify data basis

Browse Source
This commit is contained in:
Jonathan Berrisch
2025-05-18 01:58:20 +02:00
parent cc509316d0
commit de3f7ca407
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
test.R
View File

@@ -8,7 +8,8 @@ library(readr)
# Creating faceted plots for different knot values and mu values # 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 # Create a function to generate the data for a given number of knots and mu value
generate_basis_data <- function(num_knots, 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( profoc::make_knots(
n = num_knots, n = num_knots,
mu = mu_value, mu = mu_value,
@@ -19,7 +20,7 @@ generate_basis_data <- function(num_knots, mu_value) {
deg = 3 deg = 3
) )
df <- as.data.frame(as.matrix(B)) df <- as.data.frame(as.matrix(B))
df$x <- 1:99 / 100 df$x <- grid
df_long <- pivot_longer(df, df_long <- pivot_longer(df,
cols = -x, cols = -x,
names_to = "b", names_to = "b",