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.

Random Scaled Initialization

The simplest approach to weight initialization is to use small random values. Random initialization helps break the symmetry between neurons, allowing them to learn different features. However, the scale of these random values is crucial. Let's implement a basic random scaled initialization strategy: Rrandom_scaled_init <- function(n_inputs, n_neurons, scale = 0.01) { # Draw from normal distribution with mean 0, std 1 weights <- matrix(rnorm(n_inputs * n_neurons), nrow = n_inputs, ncol = n_neurons) # Scale down the values to control magnitude return(weights * scale) }random_scaled_init <- function(n_inputs, n_neurons, scale = 0.01) { # Draw from normal distribution with mean 0, std 1 weights <- matrix(rnorm(n_inputs * n_neurons), nrow = n_inputs, ncol = n_neurons) # Scale down the values to control magnitude return(weights * scale) } In this approach: We draw weights from a normal distribution with mean 0 and standard deviation 1 using rnorm() We multiply by a small scale factor (default 0.01) to control the magnitude The scale hyperparameter lets us adjust how large the initial weights should be This method is simple and has been widely used, but the optimal scale factor depends on the network architecture and can be hard to determine. If the scale is too small, we risk vanishing gradients; if too large, exploding gradients. For years, practitioners used rules of thumb like setting the scale between 0.001 and 0.1, but this approach has largely been superseded by more principled methods that we'll explore next.

Xavier/Glorot Initialization

\text{weights} \sim \mathcal{N}(0, \sqrt{\frac{2}{n\_inputs + n\_neurons}})

He Initialization

\text{weights} \sim \mathcal{U}(-\sqrt{\frac{6}{n\_inputs}}, \sqrt{\frac{6}{n\_inputs}})

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: R# 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

Output Discussion

When we run this code, we can see how our different initialization strategies produce weight distributions with the expected statistical properties: Input X (shape 1 x 3): [,1] [,2] [,3] [1,] 0.2 -0.4 1.5 Standard deviations for initialized weights: L1 (random_scaled): Expected ~0.1000, Actual 0.0967 L2 (xavier_normal): Expected ~0.1443, Actual 0.1435 L3 (he_uniform): Expected ~0.2500, Actual 0.2216 Input X (shape 1 x 3): [,1] [,2] [,3] [1,] 0.2 -0.4 1.5 Standard deviations for initialized weights: L1 (random_scaled): Expected ~0.1000, Actual 0.0967 L2 (xavier_normal): Expected ~0.1443, Actual 0.1435 L3 (he_uniform): Expected ~0.2500, Actual 0.2216 Looking at the results, we can see that the actual standard deviations closely match our expected values, with minor variations due to the random sampling. This confirms that our implementations are working correctly: For the random scaled initialization (L1), the standard deviation is very close to our specified scale of 0.1 The Xavier normal initialization (L2) produces weights with a standard deviation near the theoretical value based on fan-in and fan-out The He uniform initialization (L3) generates weights with a standard deviation that approximates our expected value for ReLU layers This verification step is crucial because it confirms that our implementations are working correctly. Proper initialization ensures that signals can flow through the network without vanishing or exploding, setting the stage for effective training.

Conclusion and Next Steps

Congratulations! You've now mastered weight initialization strategies, a critical component in building effective neural networks. We've explored why initialization matters, implemented powerful strategies like Xavier/Glorot and He initialization, and enhanced our DenseLayer R6 class to support different initialization methods based on the specific needs of each layer. You've learned how to choose the right strategy for different activation functions and how to verify that your initialization is working as expected. In the upcoming practice section, you'll have the opportunity to experiment with these initialization strategies and observe how they impact network behavior. After completing this course, you'll be ready to move on to the third course in our series, titled "Training Neural Networks: the Backpropagation Algorithm in R", where we'll learn how to efficiently train our networks using gradient-based optimization, building on the solid foundation of network architecture and initialization we've established.

Previous Lesson

Join the 1M+ learners on CodeSignal

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

random_scaled_init <- function(n_inputs, n_neurons, scale = 0.01) {
  # Draw from normal distribution with mean 0, std 1
  weights <- matrix(rnorm(n_inputs * n_neurons), nrow = n_inputs, ncol = n_neurons)
  # Scale down the values to control magnitude
  return(weights * scale)
}

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))
}

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)
    }
  )
)

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)
    }
  )
)

# 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))

Input X (shape 1 x 3):
     [,1] [,2] [,3]
[1,]  0.2 -0.4  1.5

Standard deviations for initialized weights:
  L1 (random_scaled): Expected ~0.1000, Actual 0.0967
  L2 (xavier_normal): Expected ~0.1443, Actual 0.1435
  L3 (he_uniform): Expected ~0.2500, Actual 0.2216

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)
    }
  )
)