August 2017
Intermediate to advanced
288 pages
8h 6m
English
# Loading input and test dataxFeatures = c("Temperature", "Humidity", "Light", "CO2", "HumidityRatio")yFeatures = "Occupancy"occupancy_train <-as.matrix(read.csv("datatraining.txt",stringsAsFactors = T))occupancy_test <- as.matrix(read.csv("datatest.txt",stringsAsFactors = T))# subset features for modeling and transform to numeric valuesoccupancy_train<-apply(occupancy_train[, c(xFeatures, yFeatures)], 2, FUN=as.numeric) occupancy_test<-apply(occupancy_test[, ...