Displaying 1 result from an estimated 1 matches for "passing_devices".
Did you mean:
missing_devices
2007 Aug 06
0
strange problem with mars() in package mda
...ode is shown below:
library(mda)
measurements <- read.table("clean_measurements.csv", header=TRUE, colClasses
= "numeric", sep=",")
#divide "good" and "bad" data points based on a 1/-1 label column
selection <- which(measurements[,138] == 1)
passing_Devices <- measurements[selection,1:138]
failing_Devices <- measurements[-selection,1:138]
#Number of passing/failing devices
num_Passing_Devices <- dim(passing_Devices)[1]
num_Failing_Devices <- dim(failing_Devices)[1]
# Use probability vectors to make vectors of indices
pass_Selection <-...