dat <- data.frame("SID" = c( 1, 1, 1, 1),
"UD" = c( 0, 20, 40, 60),
"LD" = c(10, 30, 50, 70),
"VAL" = c( 6, 4, 3, 10),
stringsAsFactors = FALSE)
mpspline_one(site = dat, var_name = 'VAL')
Run the code above in your browser using DataLab