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

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

Author: ruckdeschel
Date: 2018-08-18 23:17:30 +0200 (Sat, 18 Aug 2018)
New Revision: 1288

Modified:
   branches/distr-2.8/pkg/distrMod/R/asCvMVarianceQtl.R
Log:
[distrMod] branch 2.8
+ a minor safety add 

Modified: branches/distr-2.8/pkg/distrMod/R/asCvMVarianceQtl.R
===================================================================
--- branches/distr-2.8/pkg/distrMod/R/asCvMVarianceQtl.R	2018-08-18 20:38:22 UTC (rev 1287)
+++ branches/distr-2.8/pkg/distrMod/R/asCvMVarianceQtl.R	2018-08-18 21:17:30 UTC (rev 1288)
@@ -566,10 +566,10 @@
   }
   nms <- names(c(main(param(L2Fam)),nuisance(param(L2Fam))))
   dimnames(E4) = list(nms,nms)
-  if(diagnostic) class(diagn) <- "DiagnosticClass"
+  if(diagnostic && !is.null(diagn)) class(diagn) <- "DiagnosticClass"
   if(diagnostic &&! withpreIC){
      attr(E4,"diagnostic") <- diagn
-     class(attr(E4,"diagnostic"))<- "DiagnosticClass"
+     if(!is.null(diagn)) class(attr(E4,"diagnostic"))<- "DiagnosticClass"
   }
   if(withpreIC) return(list(preIC=psi, Var=E4, diagnostic = diagn))
   else return(E4)