adjust the length of some rd lines

R/methods-fscore.R

@@ -90,12 +90,15 @@
 #' colnames(sce2) <- colnames(svpe)
 #' 
 #' # Mocking up some relationship score between new feature and gene
-#' fscore1 <- lapply(seq(nrow(sce1)), function(i) abs(rnorm(5, 0.5)) |> setNames(sample(rownames(svpe),5))) |> 
-#'             List() |>  
-#'             DataFrame() |> setNames("rwr_score") 
+#' fscore1 <- lapply(seq(nrow(sce1)), function(i) abs(rnorm(5, 0.5)) |> 
+#'              setNames(sample(rownames(svpe),5))) |> 
+#'              List() |>  
+#'              DataFrame() |> setNames("rwr_score") 
 #' rownames(fscore1) <- rownames(sce1)
-#' fscore2 <- lapply(seq(nrow(sce2)), function(i) abs(rnorm(5, 0.8)) |> setNames(sample(rownames(svpe),5))) |> 
-#'            List() |>  DataFrame() |> setNames("hyper_test")
+#' fscore2 <- lapply(seq(nrow(sce2)), function(i) abs(rnorm(5, 0.8)) |> 
+#'              setNames(sample(rownames(svpe),5))) |> 
+#'              List() |> 
+#'              DataFrame() |> setNames("hyper_test")
 #' # Setting the score
 #' fscoreDfs(sce1) <- list()
 #' fscoreDfs(sce2) <- list()

R/methods-sgsa.R

@@ -107,7 +107,8 @@
 #' #
 #' # supporting the list with names or gson object or the gmt file
 #' # online gmt file is also be supported 
-#' # such as https://data.broadinstitute.org/gsea-msigdb/msigdb/release/2023.2.Hs/c2.cp.biocarta.v2023.2.Hs.symbols.gmt
+#' # such as 
+#' # https://data.broadinstitute.org/gsea-msigdb/msigdb/release/2023.2.Hs/h.all.v2023.2.Hs.symbols.gmt
 #' 
 #' data(CellCycle.Hs)
 #' sceSubPbmc <- runSGSA(sceSubPbmc, gset.idx.list = CellCycle.Hs, gsvaExp.name = 'CellCycle')

data/datalist

@@ -4,5 +4,3 @@ SenMayoSymbol
 sceSubPbmc
 CellCycle.Hs
 hpda_spe_cell_dec
-pdac_a_sce
-pdac_a_spe