rm(list=ls()) library(rstan) y <- rnorm(10) lst <- list(N=as.integer(10),y=y) r <- stan(file="trunc.stan",data=lst,par=c("L"))