diff --git a/.Rhistory b/.Rhistory
index 7cd0880c812f8f2a24f84c08bcdda042dcdc08be..003ffff2af52cb95a91e25cdacbd456c071121fd 100644
--- a/.Rhistory
+++ b/.Rhistory
@@ -1,35 +1,3 @@
 source("C:/Users/Micha/Nextcloud/Data_Plant/cmqtl_val1_arc/workflows/GC_MS_normalization/210927_primary_normalization_with_split.R", echo=TRUE)
-isa_tidy <- isa_study_tidy %>%
-full_join(isa_ext_tidy, by = c("sample_name" = "source_name"), keep = T, suffix = c("_study", "_ext")) %>%
-full_join(isa_gc_tidy, by = c("sample_name_ext" = "source_name")) #%>%
+View(sam_dat1)
 View(isa_tidy)
-isa_tidy <- isa_study_tidy %>%
-full_join(isa_ext_tidy, by = c("sample_name" = "source_name"), keep = T, suffix = c("_study", "_ext")) %>%
-full_join(isa_gc_tidy, by = c("sample_name_ext" = "source_name")) %>%
-full_join(isa_ms_tidy, by = c("sample_name" = "source_name"))
-View(isa_tidy)
-isa_tidy <- isa_study_tidy %>%
-full_join(isa_ext_tidy, by = c("sample_name" = "source_name"), keep = T, suffix = c("_study", "_ext")) %>%
-full_join(isa_gc_tidy, by = c("sample_name_ext" = "source_name")) %>%
-full_join(isa_ms_tidy, by = c("sample_name_ext" = "source_name"))
-View(isa_ms_tidy)
-isa_tidy <- isa_study_tidy %>%
-full_join(isa_ext_tidy, by = c("sample_name" = "source_name"), keep = T, suffix = c("_study", "_ext")) %>%
-full_join(isa_gc_tidy, by = c("sample_name_ext" = "source_name")) %>%
-full_join(isa_ms_tidy, by = c("sample_name_ext" = "source_name", "sample_name" = "sample_name"))
-source("C:/Users/Micha/Nextcloud/Data_Plant/cmqtl_val1_arc/workflows/GC_MS_normalization/210927_primary_normalization_with_split.R", echo=TRUE)
-View(isa_gc)
-View(isa_ext_tidy)
-View(isa_gc_tidy)
-isa_gc_tidy <- isa_gc %>%
-rename(source_name =`Source Name`,
-class = `Characteristic [sample type]`,
-batch_GC = `Parameter [Batch]`,
-run_date_GC = `Parameter [run date]`,
-daily_num = `Parameter [daily number]`,
-sample_name = `Sample Name`) %>%
-select(source_name, any_of(sam_vars), sample_name)
-isa_tidy <- isa_study_tidy %>%
-full_join(isa_ext_tidy, by = c("sample_name" = "source_name"), keep = T, suffix = c("_study", "_ext")) %>%
-full_join(isa_gc_tidy, by = c("sample_name_ext" = "source_name")) %>%
-full_join(isa_ms_tidy, by = c("sample_name_ext" = "source_name", "sample_name" = "sample_name"))