代码很简单:
## Packages
pkgs <- c("rstan", "bayesplot", "shinystan", "coda", "dplyr")
## Install uninstalled packages
lapply(pkgs[!(pkgs %in% installed.packages())], install.packages)
## Load all packages to library
lapply(pkgs, library, character.only = TRUE)