выборка случайных значений на каждой итерации - PullRequest
Новая
       31

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

0 голосов
/ 25 мая 2020

У меня есть несколько смоделированных данных. Я добавляю немного шума, чтобы посмотреть, как шум влияет на мои данные, для дальнейшего анализа. Я создал следующую функцию 

create.noise <- function(n, amount_needed, mean, sd){
      set.seed(25)
      values <- rnorm(n, mean, sd)

      returned.values <- sample(values, size=amount_needed)    
}

Я вызываю эту функцию в следующем l oop: 

dataframe.noises <- as.data.frame(noises) #i create here a dataframe dim 1x45 containing zeros

for(i in 1:100){         
    noises <- as.matrix(create.noise(100,45,0,1))
    dataframe.noises[,i] <- noises
    data_w_noise <- df.data_responses+noises
    Estimators <- solve(transposed_schema %*% df.data_schema) %*% (transposed_schema %*% data_w_noise)
    df.calculated_estimators[,i] <-Estimators
}

Приведенный выше код всегда возвращает одни и те же значения, одно решение, которое я пробовал, отправляет i в качестве параметра (который я считаю неправильным) для каждой итерации. Я добавляю i в set.seed (25 + i). Это дает мне уникальное значение для каждой итерации, но, как уже упоминалось, я не думаю, что это правильный способ go с ним.

...