[Distr-commits] r1244 - branches/distr-2.8/pkg/distrMod/R

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

Author: ruckdeschel
Date: 2018-08-05 18:04:51 +0200 (Sun, 05 Aug 2018)
New Revision: 1244

Modified:
   branches/distr-2.8/pkg/distrMod/R/asCvMVarianceQtl.R
Log:
[distrMod] branch 2.8 removed obsolote remark

Modified: branches/distr-2.8/pkg/distrMod/R/asCvMVarianceQtl.R
===================================================================
--- branches/distr-2.8/pkg/distrMod/R/asCvMVarianceQtl.R	2018-08-05 15:55:36 UTC (rev 1243)
+++ branches/distr-2.8/pkg/distrMod/R/asCvMVarianceQtl.R	2018-08-05 16:04:51 UTC (rev 1244)
@@ -743,14 +743,12 @@
 .oldCvMMDCovariance(Nb,par=ParamFamParameter(main=c(size=2.3,prob=0.3)), withplot=TRUE, N = 100)
 .CvMMDCovariance(Nb,par=ParamFamParameter(main=c(size=2.3,prob=0.3)), withplot=TRUE, N = 100)
 
-## even better results with special E() method for Gamma in pkg RobExtremes
 GF <- GammaFamily()
 .oldCvMMDCovariance(GF,par=ParamFamParameter(main=c(scale=2.3,shape=4.3)), withplot=TRUE, N = 100)
 .CvMMDCovariance(GF,par=ParamFamParameter(main=c(scale=2.3,shape=4.3)), withplot=TRUE, N = 100)
 .oldCvMMDCovariance(GF,par=ParamFamParameter(main=c(scale=2.3,shape=0.3)), withplot=TRUE, N = 100)
 .CvMMDCovariance(GF,par=ParamFamParameter(main=c(scale=2.3,shape=0.3)), withplot=TRUE, N = 100)
 
-
 system.time(print(.oldCvMMDCovariance(P0,par=ParamFamParameter("lambda",1))))
 system.time(print(.CvMMDCovariance(P0,par=ParamFamParameter("lambda",1))))
 system.time(print(.oldCvMMDCovariance(B0,par=ParamFamParameter("",.3))))