Ugh stupid mistake in that last commit

kbroman · Mar 24, 2021 · c4ef859 · c4ef859
1 parent c1f7318
commit c4ef859
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/stepwiseqtl.R b/R/stepwiseqtl.R
@@ -246,7 +246,7 @@ stepwiseqtl <-
     }
     else {
         nullformula <- as.formula(paste("y~", paste(names(covar), collapse="+")))
-        tempqtl <- makeqtl(cross, chrnames(f2)[1], 0, what=ifelse(method=="imp", "draws", "prob"))
+        tempqtl <- makeqtl(cross, chrnames(cross)[1], 0, what=ifelse(method=="imp", "draws", "prob"))
         fit <- fitqtl(cross, pheno.col, tempqtl, covar=covar, formula=nullformula,
                       method=method, model=model, dropone=FALSE, get.ests=FALSE,
                       run.checks=FALSE, tol=tol, maxit=maxit, forceXcovar=forceXcovar)

diff --git a/R/stepwiseqtlX.R b/R/stepwiseqtlX.R
@@ -364,7 +364,7 @@ stepwiseqtlX <-
     }
     else {
         nullformula <- as.formula(paste("y~", paste(names(covar), collapse="+")))
-        tempqtl <- makeqtl(cross, chrnames(f2)[1], 0, what=ifelse(method=="imp", "draws", "prob"))
+        tempqtl <- makeqtl(cross, chrnames(cross)[1], 0, what=ifelse(method=="imp", "draws", "prob"))
         fit <- fitqtl(cross, pheno.col, tempqtl, covar=covar, formula=nullformula,
                       method=method, model=model, dropone=FALSE, get.ests=FALSE,
                       run.checks=FALSE, tol=tol, maxit=maxit, forceXcovar=forceXcovar)