1.3.6　在RStudio中安装Keras

在RStudio中安装Keras的方法与TensorFlow类似，运行以下代码即可。

>if(require(devtools)) install.packages("devtools")
>devtools::install_github("rstudio/keras")
>library(keras)
>install_keras()

默认安装的也是基于CPU的Keras版本，如果想要利用NVIDIA GPU安装GPU版本，可以参阅install_keras()函数的帮助文档。

运行以下代码，验证Keras是否安装成功。

> library(keras)
> packageVersion("keras")        # 查看Keras版本
[1] '2.2.4.1'
> (t <- k_abs(c(-1,1,-1,1,-1))) # 调用Keras后端，返回TensorFlow
Tensor("Abs:0", shape=(5,), dtype=float32)
> sess = tensorflow::tf$Session()
> sess$run(t)                    # 查看结果
[1] 1 1 1 1 1

能出现以上结果，说明Keras安装成功。至此，Keras的深度学习环境已经搭建完毕！在下一节，我们将运行一个手写数字识别的例子，来体验Keras的强大。