correct a test code

stan-dev · Oct 25, 2013 · 1a89615 · 1a89615
1 parent e95c8a7
commit 1a89615
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/rstan/example/test.R b/rstan/example/test.R
@@ -137,7 +137,7 @@ if (!identical(fit4@sim$fnames_oi, fit4par_fnames_oi) ||
 if (!identical(fit4@sim$pars_oi, c('y2', 'lp__'))) 
   message('pars_oi for fit4@sim is not as expected')
 
-fit4dims_oi <- list(y2 = c(4L, 4L), lp__ = integer(0)) 
+fit4dims_oi <- list(y2 = c(4, 4), lp__ = numeric(0)) 
 if (!identical(fit4@sim$dims_oi, fit4dims_oi)) 
   message('dims_oi for fit4@sim is not as expected')