R/fitNull.R

In ZhuolinSong/Goodness-of-fit-test-for-sparse-functional-data: Goodness-of-fit test of covariance for sparse functional data

############################
# Written by: Stephanie Chen (stchen3@ncsu.edu)
# Purpose: Fit the null model (linear random effects) to data
# Updated: Aug 4, 2018

fitNull <- function(data) {
  try(nlme::lme(.value ~ 1, random = list(.id = nlme::pdSymm(~ 1 + .index)), data = data), silent = T)
}