Skip to content

Instantly share code, notes, and snippets.

@taiar
Created August 30, 2020 15:02
Show Gist options
  • Save taiar/5488cf26d1c0c170b9d5193f5408be13 to your computer and use it in GitHub Desktop.
Save taiar/5488cf26d1c0c170b9d5193f5408be13 to your computer and use it in GitHub Desktop.
# mean_train_features <- colMeans(data_training[, 1:8])
# sd_train_features <- apply(data_training[, 1:8], 2, sd)
# mean_train_features
# sd_train_features
# data_training[, 1:8] <- sweep(data_training[, 1:8], 2, mean_train_features, "-")
# data_training[, 1:8] <- sweep(data_training[, 1:8], 2, sd_train_features, "/")
# data_validation[, 1:8] <- sweep(data_validation[, 1:8], 2, mean_train_features, "-")
# data_validation[, 1:8] <- sweep(data_validation[, 1:8], 2, sd_train_features, "/")
# summary(data_training)
# summary(data_validation)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment