Использование методов S4 в R

Question

Я создал следующие классы и методы S4:

setClass(
Class="simulateSpectra",
representation( nbPixel         = "numeric"
              , nbCluster     = "numeric"
              , nbSpectrum    = "numeric"
              , nbSampling    = "numeric"

 ),
prototype( nbPixel        = 1000
         , nbCluster    = 15
         , nbSpectrum   = 10
         , nbSampling   = 33
    ),
)
setGeneric("simulate",
       def=function(Object)
       {
         standardGeneric("simulate")
       }
 )
 setMethod(
 f = "simulate",
 signature = "simulateSpectra",
definition=function(Object)
{
  mean=function(t, nbSpectrum, nbCluster)
    {
      res <- array(0, c(nbCluster, nbSpectrum, length(t)));
      res
    }
 times = c(0,10,20,30)
 means <- mean(times, Object@nbSpectrum, Object@nbCluster)
 #do some computation

 Object@result = list(means)
 }
 )

Я создаю объект, используяobj = new("simulateSpectra")и применить функцию к объекту simulate(obj)

Однако я получаю следующую ошибку:Error in mean(times, Object@nbSpectrum, Object@nbCluster) : no slot of name "times" for this object of class "simulateSpectra"

Могу ли я не использовать временную переменную times в методе S4?