search for: x_v

...tion,],failing_Devices[fail_Selection,]) validation_Set <- rbind(passing_Devices[-pass_Selection,], failing_Devices[-fail_Selection,]) # columns 2 to 66 are independent variables x <- training_Set[,2:66] # and 67 to 137 are dependent y <- training_Set[,67:137] model <- mars(x,y) x_v <- validation_Set[,2:66] y_v <- validation_Set[,67:137] y_p <- predict(model, x_v) percent_Error <- abs((y_p - y_v) / y_v) Thanks in advance for any help or suggestions you might have, I appreciate it. ~Nate -- View this message in context: http://www.nabble.com/strange-problem-w...