August 2017
Intermediate to advanced
288 pages
8h 6m
English
The current occupancy dataset as described in Chapter 1, Getting Started, is used to demonstrate the autoencoder setup in R using TensorFlow:
# Function to load Occupancy dataload_occupancy_data<-function(train){xFeatures = c("Temperature", "Humidity", "Light", "CO2", "HumidityRatio")yFeatures = "Occupancy" if(train){ occupancy_ds <- as.matrix(read.csv("datatraining.txt",stringsAsFactors = T)) } else { occupancy_ds <- as.matrix(read.csv("datatest.txt",stringsAsFactors = T)) } occupancy_ds<-apply(occupancy_ds[, c(xFeatures, yFeatures)], 2, FUN=as.numeric) return(occupancy_ds) ...