Skip to content

Commit

Permalink
Fix bug in plot_snpasso() re SDP panel (Issue rqtl#232)
Browse files Browse the repository at this point in the history
  • Loading branch information
kbroman committed Mar 15, 2024
1 parent b92e9e6 commit b39f922
Show file tree
Hide file tree
Showing 4 changed files with 12 additions and 5 deletions.
6 changes: 3 additions & 3 deletions DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Package: qtl2
Version: 0.34
Date: 2023-11-28
Version: 0.35-1
Date: 2024-03-15
Title: Quantitative Trait Locus Mapping in Experimental Crosses
Description: Provides a set of tools to perform quantitative
trait locus (QTL) analysis in experimental crosses. It is a
Expand Down Expand Up @@ -43,5 +43,5 @@ LazyData: true
Encoding: UTF-8
ByteCompile: true
LinkingTo: Rcpp, RcppEigen
RoxygenNote: 7.2.3
RoxygenNote: 7.3.1
Roxygen: list(markdown=TRUE)
7 changes: 7 additions & 0 deletions NEWS.md
Original file line number Diff line number Diff line change
@@ -1,3 +1,10 @@
## qtl2 0.35-1 (2024-03-15)

### Bug fixes

- Fixed a problem with `sdp_panel=TRUE` in `plot_snpasso()`. (Issue #232)


## qtl2 0.34 (2023-11-28)

### Major changes
Expand Down
2 changes: 1 addition & 1 deletion R/plot_snpasso_and_sdp.R
Original file line number Diff line number Diff line change
Expand Up @@ -45,7 +45,7 @@ plot_snpasso_and_sdp <-
}
if(is.na(drop_hilit)) drop_hilit <- Inf
snps2show <- rownames(scan1output)[max(scan1output[,1]) - scan1output[,1] <= drop_hilit]
snpinfo_sub <- snpinfo[snpinfo$snp_id %in% snps2show,,drop=FALSE]
snpinfo_sub <- snpinfo[snpinfo$snp %in% snps2show,,drop=FALSE]

par(mar=top_mar)
plot_sdp(snpinfo_sub$pos, snpinfo_sub$sdp, strain_labels=strain_labels,
Expand Down
2 changes: 1 addition & 1 deletion R/plot_snpasso_sdp_and_genes.R
Original file line number Diff line number Diff line change
Expand Up @@ -43,7 +43,7 @@ plot_snpasso_sdp_genes <-
}
if(is.na(drop_hilit)) drop_hilit <- Inf
snps2show <- rownames(scan1output)[max(scan1output[,1]) - scan1output[,1] <= drop_hilit]
snpinfo_sub <- snpinfo[snpinfo$snp_id %in% snps2show,,drop=FALSE]
snpinfo_sub <- snpinfo[snpinfo$snp %in% snps2show,,drop=FALSE]

par(mar=top_mar)
plot_sdp(snpinfo_sub$pos, snpinfo_sub$sdp, strain_labels=strain_labels,
Expand Down

0 comments on commit b39f922

Please sign in to comment.