R/predict_Weights2.R

In TeachNet: Fits Neural Networks to Learn About Backpropagation

predict.Weights2 <- function(object, newdata, delete.firstColumn=TRUE, ...){
  
  weights <- object
  data <- newdata
  
  # count variables
  numberOfVar <- ncol(data)
  
  start <- 1
  
  # if first column is there
  if(delete.firstColumn){start <- 2}
  
  # calculate prediction
  pred <- apply(data, 1, function(x) computeOutput2(x[start:numberOfVar],weights))
  
  pred
  
}# end of function