diff --git a/app.qmd b/25_07_phd_defense/app.qmd
similarity index 98%
rename from app.qmd
rename to 25_07_phd_defense/app.qmd
index 09e224f..9b956dd 100644
--- a/app.qmd
+++ b/25_07_phd_defense/app.qmd
@@ -15,7 +15,7 @@ d3 = require("d3@7")
 ```
 
 ```{ojs}
-bsplineData = FileAttachment("basis_functions.csv").csv({ typed: true })
+bsplineData = FileAttachment("assets/mcrps_learning/basis_functions.csv").csv({ typed: true })
 ```
 
 ```{ojs}
diff --git a/test.R b/25_07_phd_defense/assets/make_knots_data.R
similarity index 84%
rename from test.R
rename to 25_07_phd_defense/assets/make_knots_data.R
index 8f83fc6..5106bc8 100644
--- a/test.R
+++ b/25_07_phd_defense/assets/make_knots_data.R
@@ -21,9 +21,9 @@ generate_basis_data <- function(num_knots, mu_value, sig_value, nonc_value, tail
     ),
     deg = deg_value
   )
-  B_mat <- round(as.matrix(B),2)
+  B_mat <- round(as.matrix(B), 2)
   df <- as.data.frame(B_mat)
-  df$x <- round(grid,2)
+  df$x <- round(grid, 2)
   df_long <- pivot_longer(df,
     cols = -x,
     names_to = "b",
@@ -42,7 +42,7 @@ generate_basis_data <- function(num_knots, mu_value, sig_value, nonc_value, tail
 knot_values <- c(10)
 mu_values <- seq(0.1, 0.9, by = 0.2)
 sig_values <- 2^(-2:2)
-nonc_values <- c(-4,-2,0,2,4)
+nonc_values <- c(-4, -2, 0, 2, 4)
 tailw_values <- 2^(-2:2)
 
 # Create an empty list to store all combinations
@@ -57,8 +57,8 @@ for (k in knot_values) {
     for (s in sig_values) {
       for (nc in nonc_values) {
         for (tw in tailw_values) {
-            all_data[[counter]] <- generate_basis_data(5, m, s, nc, tw, 2)
-            counter <- counter + 1
+          all_data[[counter]] <- generate_basis_data(5, m, s, nc, tw, 2)
+          counter <- counter + 1
         }
       }
     }
@@ -68,4 +68,6 @@ for (k in knot_values) {
 # Combine all data frames
 all_data <- bind_rows(all_data)
 
-write_csv(all_data, "basis_functions.csv")
+write_csv(all_data, "25_07_phd_defense/assets/mcrps_learning/basis_functions.csv")
+
+# %%