R/Val_electr.R

In Dardare/prjct:

Value <- function (signals) {
  x <- matrix(0, nrow=64, ncol=23)
  x[8,1] <- x[9,2] <- x[10,3] <- x[11,4] <- x[12,5] <- x[13,6] <- x[14,7] <- 1
  x[15,8] <- x[16,9] <- x[17,10] <- x[18,11] <- x[19,12] <- x[20,13] <- x[21,14] <- 1
  x[48,15] <- x[49,16] <- x[50,17] <- x[51,18] <- x[52,19] <- x[53,20] <- 1
  x[57,21] <- x[58,22] <- x[59,23] <- 1


  value <- signals%*%x
  return(value)
}