Я пытаюсь сделать взвешенное среднее в стиле «группа по» в R. С некоторым базовым средним значением следующий код (с использованием пакета plyr из Hadley) работал хорошо.

ddply(mydf,.(period),mean)

Если я использую тот же подход с weighted.mean, я получаю следующую ошибку «x и w должны иметь одинаковую длину», которую я не понимаю, потому что часть weighted.mean работает вне ddply.

weighted.mean(mydf$mycol,mydf$myweight) # works just fine
ddply(mydf,.(period),weighted.mean,mydf$mycol,mydf$myweight) # returns the erros described above
ddply(mydf,.(period),weighted.mean(mydf$mycol,mydf$myweight)) # different code same story

Я подумал о написании пользовательской функции вместо использования weighted.mean, а затем о передаче ее в ddply или даже о написании чего-то нового с нуля с подмножеством. В моем случае это будет слишком много работы, надеюсь, но должно быть более разумное решение с тем, что уже есть.

Спасибо за любые предложения заранее!