fixed plot bug

Raphael · Raphael · commit a041b2fadcbe · 2020-01-29T09:41:55.000Z
diff --git a/.gitignore b/.gitignore
@@ -5,4 +5,3 @@ inst/doc
 doc
 Meta
 .Rproj.user
-tests/testthat/Rplots.pdf
diff --git a/R/plot.R b/R/plot.R
@@ -117,7 +117,7 @@ plot.Distribution <- function(x, fun=c('pdf','cdf'), npoints = 3000,
   if (any(c("cdf", "survival", "hazard","cumhazard") %in% fun) & !("cdf" %in% colnames(plotStructure))) {
     plotStructure$cdf <- x$cdf(plotStructure$points)
   }
-  if (any(c("pdf", "hazard") %in% fun) %in% fun) {
+  if (any(c("pdf", "hazard") %in% fun)) {
     plotStructure$pdf <- x$pdf(plotStructure$points)
   }
 

Original file line number	Diff line number	Diff line change
`@@ -117,7 +117,7 @@ plot.Distribution <- function(x, fun=c('pdf','cdf'), npoints = 3000,`
`117`	`117`	`if (any(c("cdf", "survival", "hazard","cumhazard") %in% fun) & !("cdf" %in% colnames(plotStructure))) {`
`118`	`118`	`plotStructure$cdf <- x$cdf(plotStructure$points)`
`119`	`119`	`}`
`120`		`- if (any(c("pdf", "hazard") %in% fun) %in% fun) {`
	`120`	`+ if (any(c("pdf", "hazard") %in% fun)) {`
`121`	`121`	`plotStructure$pdf <- x$pdf(plotStructure$points)`
`122`	`122`	`}`
`123`	`123`