Xavier初始化或He初始化R语言代码

Xavier初始化和He初始化是两种常用的神经网络参数初始化方法。在R语言中，可以使用以下代码实现Xavier初始化：

xavier_init <- function(n_in, n_out){
  sd <- sqrt(2 / (n_in + n_out))
  return(rnorm(n_out, mean=0, sd=sd))
}

其中，`n_in`表示输入层节点数，`n_out`表示输出层节点数。

而He初始化可以使用以下代码实现：

he_init <- function(n_in, n_out){
  sd <- sqrt(2 / n_in)
  return(rnorm(n_out, mean=0, sd=sd))
}

同样，`n_in`表示输入层节点数，`n_out`表示输出层节点数。