Число, разделенное само на себя, не равно 1?

Я не уверен, что мне здесь не хватает:

library(dplyr)
df1<-data.frame(n=c(1,1,1,2,1,1,2))
mutate(df1,foo=n/mean(c(n,lag(n)),na.rm=TRUE))
  n    foo
1 1 0.8125
2 1 0.8125
3 1 0.8125
4 2 1.6250
5 1 0.8125
6 1 0.8125
7 2 1.6250

Что, черт возьми, происходит? Первая строка должна быть, в основном, 1/mean(1), то есть «1». Почему я получаю 0,8125? Что еще более странно в моем исходном наборе данных, я получаю еще одно число - 0,608, по сути, для того же расчета. Что мне не хватает?

r lag dplyr

17.12.2018 15:31

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Попробуйте summarise(df1, length(c(n,lag(n)))) - длина вектора c(n,lag(n)) равна двукратному количеству строк и имеет среднее значение 1.230769.

Я считаю, что вы хотите:

mutate(df1,foo=n/rowMeans(cbind(n,lag(n)),na.rm=TRUE))

  n       foo
1 1 1.0000000
2 1 1.0000000
3 1 1.0000000
4 2 1.3333333
5 1 0.6666667
6 1 1.0000000
7 2 1.3333333

о ... значит, mean получает каждый раз весь вектор n, а не только значение текущей строки?

— 17.12.2018 15:39

Ах, понятно - значит, turnover=(n/((n+lag(n))/2)) тоже работает и дает ожидаемый результат. Здорово. Спасибо!

— 17.12.2018 15:39

17.12.2018 15:35