Search icon CANCEL
Subscription
0
Cart icon
Cart
Close icon
You have no products in your basket yet
Save more on your purchases!
Savings automatically calculated. No voucher code required
Arrow left icon
All Products
Best Sellers
New Releases
Books
Videos
Audiobooks
Learning Hub
Newsletters
Free Learning
Arrow right icon
Arrow up icon
GO TO TOP
R Deep Learning Cookbook

You're reading from  R Deep Learning Cookbook

Product type Book
Published in Aug 2017
Publisher Packt
ISBN-13 9781787121089
Pages 288 pages
Edition 1st Edition
Languages
Authors (2):
PKS Prakash PKS Prakash
Profile icon PKS Prakash
Achyutuni Sri Krishna Rao Achyutuni Sri Krishna Rao
Profile icon Achyutuni Sri Krishna Rao
View More author details
Toc

Table of Contents (17) Chapters close

Title Page
Credits
About the Authors
About the Reviewer
www.PacktPub.com
Customer Feedback
Preface
1. Getting Started 2. Deep Learning with R 3. Convolution Neural Network 4. Data Representation Using Autoencoders 5. Generative Models in Deep Learning 6. Recurrent Neural Networks 7. Reinforcement Learning 8. Application of Deep Learning in Text Mining 9. Application of Deep Learning to Signal processing 10. Transfer Learning

Executing the graph in a TensorFlow session


Until now, we have only created tensor objects and added them to a TensorFlow graph for later execution. In this recipe, we will learn how to create a TensorFlow session that can be used to execute (or run) the TensorFlow graph.

Getting ready

Before we run the graph, we should have TensorFlow installed and loaded in R. The installation details can be found in Chapter 1, Getting Started.

How to do it...

  1. Load the tensorflow library and import the numpy package:
library(tensorflow)
np <- import("numpy")
  1. Reset or remove any existing default_graph:
tf$reset_default_graph()
  1. Start an InteractiveSession:
sess <- tf$InteractiveSession()
  1. Initialize the global_variables:
sess$run(tf$global_variables_initializer())
  1. Run iterations to perform optimization (training):
# Train the model
train_batch_size = 128L
for (i in 1:100) {
spls <- sample(1:dim(train_data$images)[1],train_batch_size)
if (i %% 10 == 0) {
train_accuracy <- accuracy$eval(feed_dict = dict(
x ...
lock icon The rest of the chapter is locked
Register for a free Packt account to unlock a world of extra content!
A free Packt account unlocks extra newsletters, articles, discounted offers, and much more. Start advancing your knowledge today.
Unlock this book and the full library FREE for 7 days
Get unlimited access to 7000+ expert-authored eBooks and videos courses covering every tech area you can think of
Renews at €14.99/month. Cancel anytime