renamed variable names (la to ms)

kazumaru-san · Dec 24, 2016 · 5efae2b · 5efae2b
1 parent 4d58769
commit 5efae2b
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/chap12/fig12-10-right.R b/chap12/fig12-10-right.R
@@ -1,8 +1,8 @@
 library(Nippon)
 
 load('output/result-model12-14.RData')
-la <- rstan::extract(fit)
-est <- apply(la$r, 2, mean)
+ms <- rstan::extract(fit)
+est <- apply(ms$r, 2, mean)
 est[est > 19] <- 19
 cols <- lattice::level.colors(
   est, at=seq(9, 19, length=81),

diff --git a/chap12/fig12-7-left.R b/chap12/fig12-7-left.R
@@ -2,9 +2,9 @@ library(ggplot2)
 source('../common.R')
 
 load('output/result-model12-11.RData')
-la <- rstan::extract(fit)
+ms <- rstan::extract(fit)
 
-d_est <- data.frame.quantile.mcmc(x=1:I, y_mcmc=la$Y_mean, probs=c(0.1, 0.25, 0.5, 0.75, 0.9))
+d_est <- data.frame.quantile.mcmc(x=1:I, y_mcmc=ms$Y_mean, probs=c(0.1, 0.25, 0.5, 0.75, 0.9))
 p <- ggplot.5quantile(data=d_est, size=0.5)
 p <- p + geom_point(data=d, aes(x=X, y=Y), shape=1, size=2)
 p <- p + labs(x='i', y='Y[i]')

diff --git a/chap12/fig12-7-right.R b/chap12/fig12-7-right.R
@@ -2,9 +2,9 @@ library(ggplot2)
 source('../common.R')
 
 load('output/result-model12-12.RData')
-la <- rstan::extract(fit)
+ms <- rstan::extract(fit)
 
-d_est <- data.frame.quantile.mcmc(x=1:I, y_mcmc=la$Y_mean, probs=c(0.1, 0.25, 0.5, 0.75, 0.9))
+d_est <- data.frame.quantile.mcmc(x=1:I, y_mcmc=ms$Y_mean, probs=c(0.1, 0.25, 0.5, 0.75, 0.9))
 p <- ggplot.5quantile(data=d_est, size=0.5)
 p <- p + geom_point(data=d, aes(x=X, y=Y), shape=1, size=2)
 p <- p + labs(x='i', y='Y[i]')