R/sumCrossEntropy.R

sumCrossEntropy <- function(weights,data, h2) {
  
  numberOfVar <- ncol(data)
  
  if(is.na(h2)) {
    error <- apply(data, 1, function(x) (crossEntropy(computeOutput1(x[2:numberOfVar],weights),x[1])))
  } else {
    error <- apply(data, 1, function(x) (crossEntropy(computeOutput2(x[2:numberOfVar],weights),x[1])))
  }
  return(sum(error))
  
}

Try the TeachNet package in your browser

Any scripts or data that you put into this service are public.

TeachNet documentation built on May 2, 2019, 7 a.m.