Merge pull request #285 from alan-turing-institute/fix_matdist_limits

RaphaelS1 · web-flow · commit e7b8682742d6 · 2023-03-30T09:19:00.000+01:00
fix matdist lims
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: distr6
 Title: The Complete R6 Probability Distributions Interface
-Version: 1.6.14
+Version: 1.6.15
 Authors@R:
     c(person(given = "Raphael",
              family = "Sonabend",
diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# distr6 1.6.15
+
+* Fix bug in `plot.Matdist` x limits
+
 # distr6 1.6.14
 
 * Fix bug when extracting a single distribution with a logical vector from `MatDist`
diff --git a/R/plot_matdistribution.R b/R/plot_matdistribution.R
@@ -37,5 +37,12 @@ plot.Matdist <- function(x,
     val <- -log(1 - gprm(x, "cdf"))
   }
 
-  graphics::matplot(t(val), type = "l", ...)
+  times <- as.numeric(colnames(val))
+  graphics::matplot(t(val), type = "l", xaxt = "n", ...)
+  axis(
+    1,
+    seq(0, length(times), length.out = 5),
+    round(seq(min(times), max(times), length.out = 5))
+  )
+
 }

Original file line number	Diff line number	Diff line change
`@@ -37,5 +37,12 @@ plot.Matdist <- function(x,`
`37`	`37`	`val <- -log(1 - gprm(x, "cdf"))`
`38`	`38`	`}`
`39`	`39`
`40`		`- graphics::matplot(t(val), type = "l", ...)`
	`40`	`+ times <- as.numeric(colnames(val))`
	`41`	`+ graphics::matplot(t(val), type = "l", xaxt = "n", ...)`
	`42`	`+ axis(`
	`43`	`+ 1,`
	`44`	`+ seq(0, length(times), length.out = 5),`
	`45`	`+ round(seq(min(times), max(times), length.out = 5))`
	`46`	`+ )`
	`47`	`+`
`41`	`48`	`}`