Update KAML.r

YinLiLin · web-flow · commit fcc234e4d7bd · 2020-06-29T10:23:06.000+10:00
diff --git a/R/KAML.r b/R/KAML.r
@@ -3406,7 +3406,7 @@ function(
 			if(prior.model == "QTN")	stop("QTNs must be provided!")
 			if(prior.model == "K")	Top.num <- NULL
 		}
-		
+		cat(" Estimate variance components using:", vc.method,"\n")
 		if(!is.null(Top.num) | !is.null(Top.perc)){
 			cat(" Performing model: KAML\n")
 			cross.res <- KAML.CrossV(phe=PHENO, geno=GENO, prior.QTN=prior.QTN, prior.model=prior.model, vc.method=vc.method, K=KIN, BF.threshold=BF.threshold,

Original file line number	Diff line number	Diff line change
`@@ -3406,7 +3406,7 @@ function(`
`3406`	`3406`	`if(prior.model == "QTN") stop("QTNs must be provided!")`
`3407`	`3407`	`if(prior.model == "K") Top.num <- NULL`
`3408`	`3408`	`}`
`3409`		`-`
	`3409`	`+ cat(" Estimate variance components using:", vc.method,"\n")`
`3410`	`3410`	`if(!is.null(Top.num) \| !is.null(Top.perc)){`
`3411`	`3411`	`cat(" Performing model: KAML\n")`
`3412`	`3412`	`cross.res <- KAML.CrossV(phe=PHENO, geno=GENO, prior.QTN=prior.QTN, prior.model=prior.model, vc.method=vc.method, K=KIN, BF.threshold=BF.threshold,`