bss plot fix

HannaMeyer · Mar 7, 2024 · 3d2a5db · 3d2a5db
1 parent 37ae45c
commit 3d2a5db
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/R/bss.R b/R/bss.R
@@ -42,6 +42,7 @@
 #' data(iris)
 #' bssmodel <- bss(iris[,1:4],iris$Species)
 #' bssmodel$perf_all
+#' plot(bssmodel)
 #' }
 #' @export bss
 #' @aliases bss

diff --git a/R/plot.R b/R/plot.R
@@ -283,7 +283,7 @@ plot.ffs <- function(x,plotType="all",palette=rainbow,reverse=FALSE,
         ggplot2::geom_point(ggplot2::aes_string(colour="nvar"),size=size)+
         ggplot2::geom_point(data=output_df[bestmodels, ],
                             ggplot2::aes_string(x = "run", y = "value"),
-                            pch=pch,colour=marker,lwd=size)+
+                            pch=pch,colour=marker,size=size)+
         ggplot2::scale_x_continuous(name = "Model run", breaks = pretty(output_df$run))+
         ggplot2::scale_y_continuous(name = metric)+
         ggplot2::scale_colour_gradientn(breaks=seq(2,max(output_df$nvar),
@@ -298,7 +298,7 @@ plot.ffs <- function(x,plotType="all",palette=rainbow,reverse=FALSE,
         ggplot2::geom_point(ggplot2::aes_string(colour="nvar"),size=size)+
         ggplot2::geom_point(data=output_df[bestmodels, ],
                             ggplot2::aes_string(x = "run", y = "value"),
-                            pch=pch,colour=marker,lwd=size)+
+                            pch=pch,colour=marker,size=size)+
         ggplot2::scale_x_continuous(name = "Model run", breaks = pretty(dfint$run))+
         ggplot2::scale_y_continuous(name = metric)+
         ggplot2::scale_colour_manual(values = cols, name = "variables")

diff --git a/man/bss.Rd b/man/bss.Rd