根据均值和数据框的标准差生成随机序列

Question

我正在练习数据框，并且有一个这样的表：example table

我如何生成18 x 30 = 540个数据点，其中每个30个数据集都是n = 30，A_i，stdev_A_i（i = 1-> 18）的随机序列。

方法

rnorm2 <- function(n,mean,sd) { mean+sd*scale(rnorm(n)) } 

r <- rnorm2(30,A,Stdev_A)
print(unname(as.data.frame(r)),quote = FALSE, row.names = FALSE)

一次只能生成30个数据点，我必须手动执行18次。

谢谢。

Answer 1

data <- read.csv("data.csv", header = T)
normv <- function( n , mean , sd ){out <- rnorm( n*length(mean) , mean = mean , sd = sd)
return( matrix( out , nrow = n ,  , byrow = F ) )}
set.seed(1)
normv( 30 , data$A , data$Stdev_A )