Reduce the number of time points.
Arguments
- data
similar to fit_Bliss.
- param
a list containing values Q, p and p
Value
a numerical value, the approximation.
Examples
param <- list(Q=1,n=10,p=c(150),grids_lim=list(c(0,1)))
data <- sim(param)
data(param1)
param1$n <- nrow(data$x[[1]])
param1$p <- sapply(data$grids,length)
param1$Q <- length(data$x)
data <- reduce_x(data,param1)