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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.