R: оператор switch с несколькими строками

Question

В R: У меня есть матрица с одним столбцом, разделенная на 8 типов: a, b, c, d, e, f, g, h. Мне нужно сделать разные вычисления для каждого типа, используя данные в других столбцах. Я хочу использовать функцию switch() для автоматизации цикла через каждый тип и указать разностные вычисления для каждого типа; ОДНАКО, все, что я вижу в Интернете, показывает только примеры синтаксиса для вычисления одной строки для каждого коммутатора.

Вот пример использования кода в справке switch(). Я знаю, что mean() является функцией, но давайте просто скажем в этом примере, что это не функция, потому что я просто хочу проиллюстрировать, что я не знаю синтаксиса (и это не ясно указано в моих исследованиях в Интернете) :

centre <- function(x, type) { 
    switch(type, 
    mean = { 
      total.sum<-sum(type) 
      mean = total.sum/length(type) 
    }, 
    median = median(x), 
    trimmed = mean(x, trim = .1)) 
} 

Answer 1

Я думаю, что недопонимание исходит из опечатка в вашем примере:

mean = { 
     total.sum<-sum(type) 
     mean = total.sum/length(type) 
}, 

должен быть

mean = { 
     total.sum<-sum(x) 
     mean = total.sum/length(x) 
}, 

Если вы сделаете это изменение, он ведет себя точно так, как вы чюо uld ожидают этого.

ETA: Я не уверен, в чем проблема в вашем комментарии. Пожалуйста, попробуйте следующий код:

set.seed(1) 

centre <- function(x, type) { 
    switch(type, 
    mean = { 
      total.sum<-sum(x) 
      mean = total.sum/length(x) 
    }, 
    median = median(x), 
    trimmed = mean(x, trim = .1)) 
} 

x <- rcauchy(10) 
print(centre(x, "mean")) 
print(centre(x, "median")) 
print(centre(x, "trimmed")) 

Выход:

[1] -0.4844658 
[1] -0.236111 
[1] -0.3632328