added function to simulate data.

fgcz · Jan 16, 2024 · 8021ff7 · 8021ff7
1 parent dbfb626
commit 8021ff7
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 3 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -163,6 +163,7 @@ export(scale_with_subset_by_factors)
 export(separate_factors)
 export(separate_hierarchy)
 export(setup_analysis)
+export(sim_lfq_data)
 export(spread_response_by_IsotopeLabel)
 export(squeezeVarRob)
 export(strategy_glm)

diff --git a/R/A_dataset_docu.R b/R/A_dataset_docu.R
@@ -317,7 +317,6 @@ NULL
 
 # #@usage data_spectronautDIA250_A <- prolfqua_data("data_spectronautDIA250_A")
 
-
 #' example of 2 Factor data
 #' @family data
 #' @docType data

diff --git a/R/AnalysisConfiguration.R b/R/AnalysisConfiguration.R
@@ -128,7 +128,6 @@ R6_extract_values <- function(r6class){
 #'
 #' sample_analysis <- setup_analysis(prolfqua_data('data_skylinePRMSample_A')$data, skylineconfig)
 #'
-
 setup_analysis <- function(data, configuration, cc = TRUE,  from_factors = FALSE){
   configuration <- configuration$clone(deep = TRUE)
   table <- configuration$table

diff --git a/R/tidyMS_stats.R b/R/tidyMS_stats.R
@@ -106,13 +106,14 @@ compute_pooled <- function(x, method = c("V1","V2")){
   x <- x |> dplyr::filter(.data$not_na > 1)
 
   res <- func(x)
-  if(is.na(res$mean)) {
+  if (is.na(res$mean)) {
     res$mean <- meanAll
   }
   res$meanAll <- meanAll
   res$not_na <- not_na
   return(res)
 }
+
 #' pooled variance
 #' @export
 #' @rdname pooled_var