[Distr-commits] r1229 - pkg/distrMod/tests/Examples

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Mon Jul 30 13:13:35 CEST 2018


Author: ruckdeschel
Date: 2018-07-30 13:13:35 +0200 (Mon, 30 Jul 2018)
New Revision: 1229

Modified:
   pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save
Log:
[distrMod] yet another distrMod-Ex.Rout.save ... (in trunk) 

Modified: pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save
===================================================================
--- pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save	2018-07-29 17:58:09 UTC (rev 1228)
+++ pkg/distrMod/tests/Examples/distrMod-Ex.Rout.save	2018-07-30 11:13:35 UTC (rev 1229)
@@ -402,7 +402,7 @@
         dimnames = list(nms, nms0))
     list(fval = fval0, mat = mat0)
 }
-<bytecode: 0x0af01c68>
+<bytecode: 0x0b6b0dd8>
 Trafo / derivative matrix at which estimate was produced:
        scale shape
 shape  0.000     1
@@ -615,7 +615,7 @@
     ((x - 0)/c(scale = 1) * LogDeriv((x - 0)/c(scale = 1)) - 
         1)/c(scale = 1)
 }
-<environment: 0x08457f28>
+<environment: 0x08c62f38>
 
 > checkL2deriv(E1)
 precision of centering:	 -1.51181e-06 
@@ -803,8 +803,8 @@
 Slot "fct":
 function (x) 
 QuadFormNorm(x, A = A)
-<bytecode: 0x0c56aad0>
-<environment: 0x0c56a910>
+<bytecode: 0x0cd2d378>
+<environment: 0x0cd2d1b8>
 
 > 
 > ## The function is currently defined as
@@ -1119,7 +1119,7 @@
     ((x - 0)/c(meanlog = 1) * LogDeriv((x - 0)/c(meanlog = 1)) - 
         1)/c(meanlog = 1)
 }
-<environment: 0x04fc6f80>
+<environment: 0x081c79e0>
 
 > checkL2deriv(L1)
 precision of centering:	 -0.003003394 
@@ -2155,7 +2155,7 @@
         return(abs(x))
     else return(sqrt(colSums(x^2)))
 }
-<bytecode: 0x0f7cedc0>
+<bytecode: 0x0e824a70>
 <environment: namespace:distrMod>
 > name(EuclNorm)
 [1] "EuclideanNorm"
@@ -2190,7 +2190,7 @@
         return(abs(x))
     else return(sqrt(colSums(x^2)))
 }
-<bytecode: 0x0f7cedc0>
+<bytecode: 0x0e824a70>
 <environment: namespace:distrMod>
 
 > 
@@ -2673,8 +2673,8 @@
 Slot "fct":
 function (x) 
 QuadFormNorm(x, A = A0)
-<bytecode: 0x0a0f47e0>
-<environment: 0x0a0f3af0>
+<bytecode: 0x0ac87e98>
+<environment: 0x0ac88438>
 
 > 
 > ## The function is currently defined as
@@ -2715,8 +2715,8 @@
 Slot "fct":
 function (x) 
 QuadFormNorm(x, A = A)
-<bytecode: 0x09e68070>
-<environment: 0x09e683b0>
+<bytecode: 0x0a882a80>
+<environment: 0x0a882d00>
 
 > 
 > ## The function is currently defined as
@@ -3842,7 +3842,7 @@
     dimnames(mat) <- list(nfval, c("mean", "sd"))
     return(list(fval = fval, mat = mat))
 }
-<bytecode: 0x07f80e80>
+<bytecode: 0x08a8caf0>
 > print(param(NS), show.details = "minimal")
 An object of class "ParamWithScaleFamParameter"
 name:	location and scale
@@ -3891,7 +3891,7 @@
     dimnames(mat) <- list(nfval, c("mean", "sd"))
     return(list(fval = fval, mat = mat))
 }
-<bytecode: 0x07f80e80>
+<bytecode: 0x08a8caf0>
 Trafo / derivative matrix:
             mean         sd
 mu/sig 0.3668695 -0.3024814
@@ -3934,7 +3934,7 @@
     dimnames(mat) <- list(nfval, c("mean", "sd"))
     return(list(fval = fval, mat = mat))
 }
-<bytecode: 0x07f80e80>
+<bytecode: 0x08a8caf0>
 Trafo / derivative matrix:
          mean      sd
 mu/sig 0.3669 -0.3025
@@ -3992,15 +3992,6 @@
 > qqplot(x, Chisq(df=15))
 > NF <- NormLocationScaleFamily(mean=15, sd=30)
 > qqplot(x, NF, with.lab=TRUE, which.Order=1:5, cex.lbs=1.3)
-Warning in plot.window(...) : "with.lab" is not a graphical parameter
-Warning in plot.xy(xy, type, ...) :
-  "with.lab" is not a graphical parameter
-Warning in axis(side = side, at = at, labels = labels, ...) :
-  "with.lab" is not a graphical parameter
-Warning in axis(side = side, at = at, labels = labels, ...) :
-  "with.lab" is not a graphical parameter
-Warning in box(...) : "with.lab" is not a graphical parameter
-Warning in title(...) : "with.lab" is not a graphical parameter
 > mlE <- MLEstimator(x, NF)
 > qqplot(x, mlE)
 > 
@@ -4364,7 +4355,7 @@
 > cleanEx()
 > options(digits = 7L)
 > base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed:  31.01 0.47 37.36 NA NA 
+Time elapsed:  21.1 0.28 21.62 NA NA 
 > grDevices::dev.off()
 null device 
           1 



More information about the Distr-commits mailing list