Weight Initialization Strategies for Neural Networks in R

Introduction

Welcome to the fourth and final lesson in our course on The MLP Architecture: Activations & Initialization in R! We've come a long way together — we've built a flexible MLP architecture, implemented powerful activation functions like ReLU, and added specialized output activations for classification and regression tasks. Now, we're going to tackle one of the most critical but often overlooked aspects of neural network design: weight initialization . How we initialize the weights in our network might seem like a minor detail, but it can dramatically impact how (or even whether) our network learns. In particular, in this lesson we'll explore why proper weight initialization is crucial, examine common issues caused by poor initialization, implement several powerful initialization strategies, and enhance our DenseLayer R6 class to support these strategies. By the end of this lesson, you'll have a solid understanding of weight initialization and the ability to implement various initialization strategies in your neural networks. This knowledge will significantly improve your models' training speed and overall performance.

Why Weight Initialization Matters

Imagine you're starting a journey through a complex, hilly landscape with the goal of finding the lowest valley. The point where you begin this journey greatly affects how quickly (or if) you'll reach your destination. Similarly, the initial values of your neural network weights determine your starting point in the loss landscape and influence the entire training process that allows networks to learn. Poor weight initialization can lead to several problems: Symmetry Issues : If all weights start with the same value, all neurons in a layer will compute the same output and receive the same gradient updates. This "symmetry" prevents the network from learning diverse features. Vanishing Gradients : If weights are too small, the signals flowing through the network will diminish with each layer, causing gradients to approach zero during backpropagation. This makes learning extremely slow, especially in deeper layers. Exploding Gradients : Conversely, if weights are too large, the signals can grow exponentially through the network, leading to unstable training and numerical overflow. Let's visualize this with a simple example. Imagine a 10-layer network where each layer either halves or doubles the signal: With weights that are too small: 1 \to 0.5 \to 0.25 \to 0.125 \to ... \to 0.001 (signal vanishes) With weights that are too large: 1 \to 2 \to 4 \to 8 \to ... \to 1024 (signal explodes) Both scenarios make it difficult for the network to learn efficiently. Proper initialization balances these concerns, allowing signals to flow smoothly through the network without vanishing or exploding.

Join the 1M+ learners on CodeSignal

Be a part of our community of 1M+ users who develop and demonstrate their skills on CodeSignal

Implementing Different Strategies in Our Layer

Now that we understand different initialization strategies, let's enhance our DenseLayer R6 class to support them. We'll add parameters that allow us to specify which initialization strategy to use:

library(R6)

# Activation functions
sigmoid <- function(x) {
  return(1 / (1 + exp(-x)))
}

relu <- function(x) {
  return(pmax(0, x))
}

linear <- function(x) {
  return(x)
}

# Dense Layer R6 class
DenseLayer <- R6Class("DenseLayer",
  public = list(
    weights = NULL,
    biases = NULL,
    n_inputs = NULL,
    n_neurons = NULL,
    output = NULL,
    activation_fn = NULL,
    activation_fn_name = NULL,
    weight_init_strategy = NULL,
    weight_init_scale = NULL,
    
    initialize = function(n_inputs, n_neurons, activation_fn_name = "sigmoid",
                         weight_init_strategy = "random_scaled", weight_init_scale = 0.01) {
      self$n_inputs <- n_inputs
      self$n_neurons <- n_neurons
      self$activation_fn_name <- activation_fn_name
      self$weight_init_strategy <- weight_init_strategy
      self$weight_init_scale <- weight_init_scale
      
      # Initialize weights based on the selected strategy
      if (weight_init_strategy == "random_scaled") {
        # Simple scaled random initialization
        self$weights <- matrix(rnorm(n_inputs * n_neurons), nrow = n_inputs, ncol = n_neurons) * weight_init_scale
      } else if (weight_init_strategy == "xavier_normal") {
        # Xavier/Glorot normal initialization (good for sigmoid/tanh)
        stddev <- sqrt(2.0 / (n_inputs + n_neurons))
        self$weights <- matrix(rnorm(n_inputs * n_neurons), nrow = n_inputs, ncol = n_neurons) * stddev
      } else if (weight_init_strategy == "he_uniform") {
        # He uniform initialization (good for ReLU)
        limit <- sqrt(6.0 / n_inputs)
        self$weights <- matrix(runif(n_inputs * n_neurons, min = -limit, max = limit), 
                             nrow = n_inputs, ncol = n_neurons)
      } else {
        stop(paste("Unsupported weight initialization strategy:", weight_init_strategy))
      }
      
      # Initialize biases to zero (standard practice)
      self$biases <- matrix(0, nrow = 1, ncol = n_neurons)
      self$output <- NULL
      
      # Set activation function
      if (activation_fn_name == "sigmoid") {
        self$activation_fn <- sigmoid
      } else if (activation_fn_name == "relu") {
        self$activation_fn <- relu
      } else if (activation_fn_name == "linear") {
        self$activation_fn <- linear
      } else {
        stop(paste("Unsupported activation:", activation_fn_name))
      }
    },
    
    forward = function(inputs) {
      # Calculate linear combination: inputs %*% weights + biases
      z <- inputs %*% self$weights + rep(self$biases, each = nrow(inputs))
      # Apply activation function
      self$output <- self$activation_fn(z)
      return(self$output)
    }
  )
)

Key enhancements in this updated R6 class:

Added weight_init_strategy and weight_init_scale as public fields
Implemented conditional logic in the initialize method to select the appropriate initialization method
Used self$ to access and modify the instance properties
Maintained bias initialization at zero (this is standard practice)
Kept our existing activation function selection logic

The beauty of this R6 approach is that we can now easily create layers with different initialization strategies. For example, we might use He initialization for ReLU layers and Xavier initialization for sigmoid layers.

Verifying Our Initialization Strategies

To ensure our initialization strategies are working as expected, let's build a simple neural network and verify the statistical properties of the initialized weights:

# Create sample input
X_sample <- matrix(c(0.2, -0.4, 1.5), nrow = 1)
cat(sprintf("Input X (shape %d x %d):\n", nrow(X_sample), ncol(X_sample)))
print(X_sample)
cat("\n")

# Build layers with different initialization strategies
# Layer 1: ReLU with random scaled (custom scale)
l1 <- DenseLayer$new(3, 64, "relu", 
                    weight_init_strategy = "random_scaled", 
                    weight_init_scale = 0.1)

# Layer 2: Sigmoid with Xavier normal
l2 <- DenseLayer$new(64, 32, "sigmoid", 
                    weight_init_strategy = "xavier_normal")

# Layer 3: ReLU with He uniform
l3 <- DenseLayer$new(32, 2, "relu", 
                    weight_init_strategy = "he_uniform")

# Calculate and compare expected vs. actual standard deviations
cat("\nStandard deviations for initialized weights:\n")

# Random scaled: should be close to the scale parameter
expected_std_l1 <- l1$weight_init_scale
actual_std_l1 <- sd(as.vector(l1$weights))
cat(sprintf("  L1 (random_scaled): Expected ~%.4f, Actual %.4f\n", 
            expected_std_l1, actual_std_l1))

# Xavier normal: stddev = sqrt(2/(fan_in + fan_out))
expected_std_l2 <- sqrt(2.0 / (l2$n_inputs + l2$n_neurons))
actual_std_l2 <- sd(as.vector(l2$weights))
cat(sprintf("  L2 (xavier_normal): Expected ~%.4f, Actual %.4f\n", 
            expected_std_l2, actual_std_l2))

# He uniform: for U(-limit,limit), stddev = sqrt(2/fan_in)
expected_std_l3 <- sqrt(2.0 / l3$n_inputs)
actual_std_l3 <- sd(as.vector(l3$weights))
cat(sprintf("  L3 (he_uniform): Expected ~%.4f, Actual %.4f\n", 
            expected_std_l3, actual_std_l3))

This code:

Creates a sample input and three layers with different initialization strategies using the R6 syntax
Calculates the expected standard deviation for each initialization method
Compares it with the actual standard deviation of the initialized weights
Helps us confirm that our implementation matches the theoretical expectations

xavier_normal_init <- function(n_inputs, n_neurons) { # Calculate standard deviation based on fan-in and fan-out stddev <- sqrt(2.0 / (n_inputs + n_neurons)) # Draw weights from normal distribution with calculated stddev return(matrix(rnorm(n_inputs * n_neurons), nrow = n_inputs, ncol = n_neurons) * stddev) }

he_uniform_init <- function(n_inputs, n_neurons) { # Calculate limit based on fan-in (input connections) limit <- sqrt(6.0 / n_inputs) # Draw weights from uniform distribution within calculated bounds return(matrix(runif(n_inputs * n_neurons, min = -limit, max = limit), nrow = n_inputs, ncol = n_neurons)) }

Introduction

Why Weight Initialization Matters

Join the 1M+ learners on CodeSignal

Random Scaled Initialization

Xavier/Glorot Initialization

He Initialization

Implementing Different Strategies in Our Layer

Verifying Our Initialization Strategies

Output Discussion

Conclusion and Next Steps