...

Author: livio

DESCRIPTION

@@ -8,4 +8,4 @@ Description: runs resampling-based tests jointly (e.i. sign-flip score tests [He
 Imports: flipscores, ggplot2, methods, flip 
 Encoding: UTF-8
 License: GPL-2
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1

R/jointest_package.R

@@ -28,7 +28,7 @@
 #' res=p.adjust.fwer(res)
 #' summary(res)
 #' 
-#' @docType package
+#' @docType _PACKAGE
 #'
 #' @author Livio Finos
 #' @name jointest-package

R/methods.R

@@ -77,7 +77,8 @@ NULL
 
 summary.jointest <- function (object, ...) 
 {
-object$summary_table
+#object$summary_table
+  do.call(rbind,lapply(object, function(ob) ob$summary_table))
 }
 
 .get_summary_table_from_flipscores <- function(object){
@@ -142,7 +143,7 @@ plot.jointest <- function(object,
   p <- ggplot(D, aes_string(y=y, 
                             x=x, 
                             group=group,color=group)) +
-    geom_point(aes(shape=is_signif))+ 
+    geom_point(aes(shape=is_signif),size=2)+ 
     ggtitle(title) + theme_minimal() 
   if(!(mark_signif%in%c(0,1))){
     p <- p +