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)
Run the code above in your browser using DataLab