r语言：○1，使用正态分布随机数函数生成1个数字，其中均值为50，方差为20； ○2，使用函数实现四舍五入保留到整数位； ○3，将○2中生成的随机数转化成8进制，并存在变量A8中。 要求：写一个函数实现上述的三个要求，其中，输入参数为生成十进制数据中正态分布的均值与方差，输出参数为：生成的十进制数字与转化后的8进制的数据。

以下是实现上述要求的函数：

generate_random_number <- function(mean, sd) {
  # 生成正态分布的随机数
  rand_num <- rnorm(1, mean = mean, sd = sd)
  
  # 四舍五入保留整数位
  rand_num <- round(rand_num, digits = 0)
  
  # 将随机数转化成8进制
  rand_num_8 <- as.octmode(rand_num)
  
  # 返回十进制数字和8进制数字
  return(list(decimal = rand_num, octal = rand_num_8))
}

# 示例运行
result <- generate_random_number(50, 20)
print(paste("生成的十进制数字为：", result$decimal))
print(paste("转化后的8进制数字为：", result$octal))

这个函数接受两个输入参数：均值和方差，然后生成一个正态分布的随机数，四舍五入保留整数位，将其转化成8进制，并返回十进制数字和8进制数字。最后，我们对函数进行了一个示例运行，以检查函数是否按照要求正常工作。