search for: activity_class

...# Prepare column names by stripping the underline and the number at the end colnames(prediction.set) <- sub('_\\d+$', '', colnames (prediction.set), perl=TRUE) prediction.set.header <- colnames(prediction.set) # Get descriptor columns of the training data set without the Activity_Class column training.filtered.property.colnames <- colnames(training.filtered)[-1] # Filter out the all-constant columns from the training set prediction.set.filtered <- prediction.set [training.filtered.property.colnames] dim(prediction.set.filtered) # => 1 row and 249 columns # Write heade...