R/weightUpdateInitialiser.R

In RajeshB24/deepdive: Deep Learning for General Purpose

#' Weight Update Initialisation for deepnet
#'
#' @param i
#' @param interVariableCount
#' @param interOutCount
#' @param seed
#'
#' @return
#' @noRd
#'
#' @examples
weightUpdateInitialiser <- function(i,interVariableCount,interOutCount,seed) {
  set.seed(seed)

  weightUpdateMatrix<-matrix(runif(interVariableCount[i] * interOutCount[i],0,0),
                         nrow = interVariableCount[i])
  return(weightUpdateMatrix)
}