From 931034364a394176b533f5f376f59efcf0396a1c Mon Sep 17 00:00:00 2001 From: Cristianetaniguti Date: Tue, 27 Aug 2024 15:26:42 -0400 Subject: [PATCH] add diplo-general and diplo-additive to fit.QTL --- R/fit.QTL.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/fit.QTL.R b/R/fit.QTL.R index 2cd1333..c2c79ff 100644 --- a/R/fit.QTL.R +++ b/R/fit.QTL.R @@ -20,7 +20,8 @@ fit.QTL <- function(data,trait,qtl,fixed=NULL) { stopifnot(is.element(trait,names(data@scores))) stopifnot(qtl$Model %in% c("additive","general", paste(1:(data@ploidy/2),"dom-ref",sep="-"), - paste(1:(data@ploidy/2),"dom-alt",sep="-"))) + paste(1:(data@ploidy/2),"dom-alt",sep="-"), + "diplo-general", "diplo-additive")) stopifnot(qtl$Marker %in% data@map$Marker) not.miss <- which(!is.na(data@pheno[,trait]))