Mathematica: Операции над списком с отсутствующими значениями

Question

Я стараюсь выполнять операции над набором списков. Например:
Списки: (1, 1, 2, 3, 3, 4, 4, 4, 4, 4, 4, 5), (1, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), (1, 1, 1, 1, NA, NA, NA, NA), (1, 1, 2, 3, 3, 4, 4, 4, 4, 4, 4, 5)

Тогда я хотел бы, например, иметь список, содержащий средства. Средние [списки] не работают должным образом, потому что он не знает, как обрабатывать недостающие значения «NA». Что я ожидаю: (1, 1, 5/3, 7/3, 3, 4, 4 и т. Д.)

Кто-нибудь может игнорировать недостающие или «текстовые» значения? Например, вы будете использовать такую ​​функцию в excel, например. Спасибо!

Answer 1

Похоже, вас интересует среднее значение столбцов матрицы. Если массив данных имеет прямоугольную форму вы могли бы сделать что-то вроде этого

lst = {{1, 1, 1, "NA", "NA"}, {2, 3, 4, 5, "NA"}, {6, 7, 8, 9, 10}}; 
Mean /@ DeleteCases[Transpose[lst], a_ /; Not[NumericQ[a]], {-1}] 

Более простой метод должен был бы заменить любой символ используется для не доступных элементов (например "NA" в lst) по Sequence[]:

Mean /@ (Transpose[lst] /. "NA" -> Sequence[]) 

Answer 2

l = {{1, 1, 1, "NA", "NA"}, {2, 3, 4, 5, "NA"}} 
Mean@# & /@ (Cases[#, Except@"NA"] & /@ l) 

(* 
-> {1, 7/2} 
*)