R/TimeT_grid_K_SPOR.R

Defines functions .TimeT_grid_K_SPOR

.TimeT_grid_K_SPOR <- function(X,deg,K){
  grid_Tt <- list()
  for( i in 1 : (K-1)){
    grid_Tt[[i]] <- sapply((deg+2):(length(X)- ((deg+2)*(K-i))), function(j) (X[j+1]+X[j])/2)
  }
  return(grid_Tt)
}

Try the HSPOR package in your browser

Any scripts or data that you put into this service are public.

HSPOR documentation built on Sept. 3, 2019, 9:05 a.m.