working

Author: oddish3

.Rbuildignore

@@ -1,3 +1,4 @@
 ^.*\.Rproj$
 ^\.Rproj\.user$
 ^\.github$
+^simulation(/.*)?$

NAMESPACE

@@ -2,7 +2,6 @@
 
 export(bspline)
 export(npiv_regression)
-export(update_package)
 import(RcppArmadillo)
 importFrom(Rcpp,sourceCpp)
 importFrom(devtools,install)

R/bspline.R

@@ -1,8 +1,15 @@
-#' B spline
+#' B-spline calculation
 #'
-
-#' @export
+#' This function calculates B-spline basis functions.
+#'
+#' @param x Input vector. The points at which to evaluate the B-spline basis functions.
+#' @param l Resolution level. Determines the number of basis functions.
+#' @param r Order of the B-spline. Determines the polynomial degree (degree = order - 1).
+#' @param kts Optional. Vector of knots for the B-spline. If NULL, knots will be generated automatically.
 #'
+#' @return A matrix of B-spline basis function values.
+#'
+#' @export
 bspline <- function(x, l, r, kts = NULL) {
   N <- length(x)
   m <- 2^l - 1

R/utils.R

@@ -2,12 +2,14 @@ rm(list=ls())
 library(parallel)
 library(doParallel)
 library(foreach)
-library(contdid)
 library(doRNG)
 library(tidyverse)
 library(fixest)
 library(splines2)
 
+devtools::load_all("~/Documents/uni/master-dissertation/contdid")
+library(contdid)
+
 # Source necessary functions
 source("~/Documents/uni/master-dissertation/contdid/simulation/DGP1.R")
 source("~/Documents/uni/master-dissertation/contdid/simulation/run_simulation.R")