R: Ошибка в матрице [i, 1]: неправильное количество измерений

Вы можете заменить последний цикл for векторизованным решением:

analyse <- function(DV,FF)
{
  correct <- rep(0,47)
  matrix <- array(rep(0,47*3),dim=c(47,3))

  for(i in 1:47)
  {
    if( DV[i] > 50 ) { 
      if( FF[i] > 50) {
        correct[i] <- i 
      } 
    }

    else {
      if( FF[i] < 0) {
        correct[i] <- i}
    }
  }

  for(i in 1:47)
  {
    if( (correct[i] == 0) == FALSE)
    {
      matrix[i,1] <- DV[i]
      matrix[i,2] <- FF[i]
      matrix[i,3] <- matrix[i,1] - matrix[i,2]
    }
  }

  matrix <- matrix[ matrix[,1] != 0, ]

  return(matrix)
}

analyse(DV, FF)
#      [,1]     [,2]     [,3]
# [1,] 59.2 51.93295  7.26705
# [2,] 50.9 53.02263 -2.12263
# [3,] 57.8 50.98856  6.81144
# [4,] 51.6 52.36882 -0.76882
# [5,] 62.5 52.98631  9.51369
# [6,] 55.0 54.22128  0.77872
# [7,] 53.8 51.49707  2.30293
# [8,] 52.4 51.06120  1.33880
# [9,] 54.7 50.95223  3.74777
# [10,] 50.3 51.38811 -1.08811
# [11,] 52.0 51.02488  0.97512

Но, как вы упомянули, это неэффективно. Нет необходимости в петлях. Приведенная ниже функция обеспечивает идентичный вывод.

analyse2 <- function(DV, FF) {
  indx <- (DV > 50 & FF > 50) | FF < 0
  dif <- DV[indx] - FF[indx]
  matrix(c(DV[indx], FF[indx], dif), ncol=3)
}
analyse2(DV, FF)
#      [,1]     [,2]     [,3]
# [1,] 59.2 51.93295  7.26705
# [2,] 50.9 53.02263 -2.12263
# [3,] 57.8 50.98856  6.81144
# [4,] 51.6 52.36882 -0.76882
# [5,] 62.5 52.98631  9.51369
# [6,] 55.0 54.22128  0.77872
# [7,] 53.8 51.49707  2.30293
# [8,] 52.4 51.06120  1.33880
# [9,] 54.7 50.95223  3.74777
# [10,] 50.3 51.38811 -1.08811
# [11,] 52.0 51.02488  0.97512

all.equal(analyse(DV, FF), analyse2(DV, FF))
[1] TRUE

изменить

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

analyse2 <- function(DV, FF) {
  indx <- (!DV > 50 & FF > 50) | FF < 0
  dif <- DV[indx] - FF[indx]
  matrix(c(DV[indx], FF[indx], dif), ncol=3)
}

analyse2(DV, FF)
#      [,1]     [,2]      [,3]
# [1,] 46.9 50.00784  -3.10784
# [2,] 42.7 52.51411  -9.81411
# [3,] 50.0 50.22578  -0.22578
# [4,] 47.8 50.29842  -2.49842
# [5,] 36.1 50.26210 -14.16210
# [6,] 44.5 50.55268  -6.05268
# [7,] 49.6 53.78541  -4.18541
# [8,] 44.7 50.08049  -5.38049

изменить 2

И то и другое больше или меньше 50.

analyse3 <- function(DV, FF) {
  indx <- !( (DV > 50 & FF > 50) | (DV < 50 & FF < 50) )
  dif <- DV[indx] - FF[indx]
  matrix(c(DV[indx], FF[indx], dif), ncol=3)
}