R/irreg2mat.mod.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: Transform functional data in "long" format to "wide" grid, with NA for missing obs

irreg2mat.mod <- function(data, times) { #length(unique(data$.id))
  grid <- matrix(NA, nrow = max(unique(data$.id)), ncol = length(times))
  inds <- cbind(data$.id, match(data$.index, times))
  grid[inds] <- data$.value
  return(grid)
}