Может быть легко сделано с dplyr
. В примере df
- это имя набора данных, а columavg
будет столбцом, в котором будет храниться новое значение.
library(dplyr)
df = df %>%
mutate(columavg = case_when(row_number() == 138 ~ rowMeans(.[18:22], na.rm=TRUE),
TRUE ~ 0))
или, если вам нужно только это единственное значение
rowMeans(df[138,18:22], na.rm=TRUE)[[1]]