Генерация случайных рядов на основе средних значений и стандартных отклонений от кадра данных

Question

Я тренируюсь с фреймом данных, и у меня есть такая таблица: пример таблицы

Как я могу сгенерировать 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 )