Случайная функция Форреста

Question

Думаю, у меня простой вопрос. Я хочу создать матрицу со случайными данными форреста.

Моя функция выглядит так:

    rf_improve<-function(count,prob){
  j<-1:count
  data_matrix<-matrix(NA,length(prob),length(count))
  for (i in 1:dim(data_matrix)[1]){
    prob[i]<-prob
    for(j in 1:dim(data_matrix)[2]) {
      data_matrix[i,j]<-sample(c(-1,1), 1, replace = TRUE, prob = c(prob,1-prob))
    }
  }
}

Дело в том, что я хочу для каждой строки разную вероятность, но я точно не знаю как это реализовать.

Thx and Greatings