Странная ошибка:формальные аргументы, опущенные в определении метода, не могут содержаться в сигнатуре

Question

Я пытаюсь определить универсальные методы в одном R-файле и реализовать их в другом R-файле.Но я получаю сообщение об ошибке, которое я не понимаю.

Вопросы:

1. В чем источник ошибки?
2. Как мне исправить ошибку?

Содержание BuyProbabilityGeneric.R:

setGeneric("FirstTimeBuyProbability",
        valueClass = "numeric",
        function(object, period, price) {
    standardGeneric("FirstTimeBuyProbability")
})

setGeneric("ReturningBuyProbability",
        valueClass = "numeric",
        function(object, period1, price1, period2, price2) {
    standardGeneric("ReturningBuyProbability")
})

Содержание BuyProbabilityBasic.R:

setClass("BuyProbabilityBasic", representation(
        full.price.probability = "numeric",
        elasticity = "numeric"))

setMethod("FirstTimeBuyProbability",
        signature(object = "BuyProbabilityBasic", 
                period = "numeric", price = "numeric"), 
        function(object, t, price) {
    full.price.probability * price^elasticity
})

setMethod("ReturningBuyProbability",
        signature(object = "BuyProbabilityBasic", 
                period1 = "numeric", price1 = "numeric",
                period2 = "numeric", price2 = "numeric"), 
        function(object, period1, price1, period2, price2) {
    max(0, FirstTimeBuyProbability(object, period2, price2) -
        FirstTimeBuyProbability(object, period1, price1))
})

R консольный вывод:

> source('BuyProbabilityGeneric.R')
> source('BuyProbabilityBasic.R')
Error in conformMethod(signature, mnames, fnames, f, fdef, definition) : 
  in method for ‘FirstTimeBuyProbability’ with signature 
‘object="BuyProbabilityBasic",period="numeric",price="numeric"’: 
formal arguments (period = "numeric") omitted in the method definition
cannot be in the signature

Answer 1

пробовать:

setMethod("FirstTimeBuyProbability",
          signature(object = "BuyProbabilityBasic", 
                    period = "numeric", price = "numeric"), 
          function(object, period, price) {
            full.price.probability * price^elasticity
          })

Заметьте, как я изменился t к period в формулах определения вашей функции.По сути, вы пытались определить функцию, в которой формальные параметры вступали в противоречие с подписью.