fix

SeverinBang · SeverinBang · commit c82742d4f9e2 · 2025-03-12T09:08:48.000+01:00
diff --git a/R/toolsSvenja.R b/R/toolsSvenja.R
@@ -170,7 +170,7 @@ PlotPaths <- function(profs=myprofiles, ..., whichPar, sort = FALSE, relative =
   }
   
   data <- droplevels(subset(data, ...))
-  removeBecauseNonsense <- c("value", "constraint", "stepsize", "chisquare", "data", "prior")
+  removeBecauseNonsense <- c("value", "constraint", "stepsize", "chisquare", "data", "prior", "gamma", "whichPar")
   data <- data[!(partner %in% removeBecauseNonsense)]
   data$y <- as.numeric(data$y)
   data$x <- as.numeric(data$x)

Original file line number	Diff line number	Diff line change
`@@ -170,7 +170,7 @@ PlotPaths <- function(profs=myprofiles, ..., whichPar, sort = FALSE, relative =`
`170`	`170`	`}`
`171`	`171`
`172`	`172`	`data <- droplevels(subset(data, ...))`
`173`		`- removeBecauseNonsense <- c("value", "constraint", "stepsize", "chisquare", "data", "prior")`
	`173`	`+ removeBecauseNonsense <- c("value", "constraint", "stepsize", "chisquare", "data", "prior", "gamma", "whichPar")`
`174`	`174`	`data <- data[!(partner %in% removeBecauseNonsense)]`
`175`	`175`	`data$y <- as.numeric(data$y)`
`176`	`176`	`data$x <- as.numeric(data$x)`