# NOT RUN {
# generate mean and variance for sequence of samples over time
library(rstan)
library(dplyr)
library(magrittr)
library(tidyr)
library(tibble)
library(ggfan)
seed <- 34526
set.seed(seed)
# data
x <- seq(-5,5,0.1)
N <- length(x)
y <- cbind(rpois(N, exp(sin(x)+2)),rpois(N, exp(sin(x)+2)))
stan_data <- list(N=N, x=x, y=y)
compiled_model <- stan_model(file=file.path(path.package("ggfan"),
"stan","latent_gp_pois.stan"))
gp_model_fit <- sampling(compiled_model, data=stan_data, iter=3000,thin=6)
#devtools::use_data(gp_model_fit, internal=FALSE)
# }
Run the code above in your browser using DataCamp Workspace