#首先在ubuntu16.04中运行以下代码

sudo apt-get install libcurl4-openssl-dev libssl-dev

#在RStudio中安装Keras

install.packages("devtools")

devtools::install_github("rstudio/keras")

library(keras)

#在默认情况下，RStudio会加载CPU版本的TensorFlow，如果没有成功加载，使用以下指令来下载

install_tensorflow()

#如果为单独用户或桌面系统安装GPU支持的TensorFlow

install_tensorflow(gpu=TRUE)

# 在R中使用Keras构建的模型列表

# 1.多层感知器(Multi-Layer Perceptrons)

# 2.卷积神经网络(Convoluted Neual Networks)

# 3.递归神经网络(Recurrent Nerual Networks)

# 4.Skip-Gram模型

# 5.使用预训练的模型(VGG16、RESENT)

# 6.微调预训练的模型

data <- dataset_mnist()

train_x <- data$train$x

train_y <- data$train$y

test_x <- data$test$x

test_y <- data$test$y

rm(data)

train_x <- array(train_x,dim=c(dim(train_x)[1],prod(dim(train_x)[-1]))) / 255