[Robast-commits] r1165 - branches/robast-1.2/pkg/ROptEst/R

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2018-08-19 01:37:17 +0200 (Sun, 19 Aug 2018)
New Revision: 1165

Modified:
   branches/robast-1.2/pkg/ROptEst/R/RMXEOMSEMBREOBRE.R
   branches/robast-1.2/pkg/ROptEst/R/roptest.new.R
Log:
[ROptEst] branch 1.2.
+removed capsulating quote(.) from res at esimtate.call 
+typo as to method kStepTimings 

Modified: branches/robast-1.2/pkg/ROptEst/R/RMXEOMSEMBREOBRE.R
===================================================================
--- branches/robast-1.2/pkg/ROptEst/R/RMXEOMSEMBREOBRE.R	2018-08-18 23:35:03 UTC (rev 1164)
+++ branches/robast-1.2/pkg/ROptEst/R/RMXEOMSEMBREOBRE.R	2018-08-18 23:37:17 UTC (rev 1165)
@@ -39,7 +39,7 @@
    if(!missing(initial.est.ArgList)) roptestArgList$initial.est.ArgList <- initial.est
 
    res <- do.call(roptest, roptestArgList)
-   res at roptestCall <- quote(res at estimate.call)
+   res at roptestCall <- res at estimate.call
    res at estimate.call <- mc
    return(res)
 }
@@ -87,7 +87,7 @@
    if(!missing(initial.est.ArgList)) roptestArgList$initial.est.ArgList <- initial.est
 
    res <- do.call(roptest, roptestArgList)
-   res at roptestCall <- quote(res at estimate.call)
+   res at roptestCall <- res at estimate.call
    res at estimate.call <- mc
    return(res)
 }
@@ -131,7 +131,7 @@
    if(!missing(initial.est.ArgList)) roptestArgList$initial.est.ArgList <- initial.est
 
    res <- do.call(roptest, roptestArgList)
-   res at roptestCall <- quote(res at estimate.call)
+   res at roptestCall <- res at estimate.call
    res at estimate.call <- mc
    return(res)
 }
@@ -177,7 +177,7 @@
    if(!missing(initial.est.ArgList)) roptestArgList$initial.est.ArgList <- initial.est
 
    res <- do.call(roptest, roptestArgList)
-   res at roptestCall <- quote(res at estimate.call)
+   res at roptestCall <- res at estimate.call
    res at estimate.call <- mc
    return(res)
 

Modified: branches/robast-1.2/pkg/ROptEst/R/roptest.new.R
===================================================================
--- branches/robast-1.2/pkg/ROptEst/R/roptest.new.R	2018-08-18 23:35:03 UTC (rev 1164)
+++ branches/robast-1.2/pkg/ROptEst/R/roptest.new.R	2018-08-18 23:37:17 UTC (rev 1165)
@@ -83,7 +83,7 @@
                  kStepTimings = attr(object,"kStepTimings")))
    }
 })
-setMethod("timings", "ORobEstimate", function(object,...) attr(object,"kStepTimings"))
+setMethod("kStepTimings", "ORobEstimate", function(object,...) attr(object,"kStepTimings"))