fix bug in example in man files

hillarykoch · Feb 2, 2018 · ae6bd2c · ae6bd2c
1 parent aaffcc2
commit ae6bd2c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: powerTCR
 Type: Package
 Title: Model-Based Comparative Analysis of the TCR Repertoire
-Version: 0.1.2
+Version: 0.1.3
 Date: 2018-01-23
 Author: Hillary Koch
 Maintainer: Hillary Koch <hbk5086@psu.edu>

diff --git a/man/fdiscgammagpd.Rd b/man/fdiscgammagpd.Rd
@@ -29,8 +29,8 @@ This function takes count data and fits the gamma-GPD spliced threshold model to
 \author{\email{hbk5086@psu.edu}}
 \examples{
 data("repertoires")
-thresholds1 <- unique(quantile(repertoires[[1]], c(.75,.8,.85,.9,.95)))
-thresholds2 <- unique(quantile(repertoires[[2]], c(.75,.8,.85,.9,.95)))
+thresholds1 <- unique(round(quantile(repertoires[[1]], c(.75,.8,.85,.9,.95))))
+thresholds2 <- unique(round(quantile(repertoires[[2]], c(.75,.8,.85,.9,.95))))
 
 fit1 <- fdiscgammagpd(repertoires[[1]], useq = thresholds1, shift = min(repertoires[[1]]))
 fit2 <- fdiscgammagpd(repertoires[[2]], useq = thresholds1, shift = min(repertoires[[2]]))