knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-", out.width = "100%" )
The goal of ProcessIsodataOuts is to read files from isodat, assign AA peak names, and then correct sample data based on standard runs. This package is still under development.
You can install the development version from GitHub with:
# install.packages("devtools") devtools::install_github("catrinanowakowski/process_isodata_outs")
This is a basic example which shows you how to solve a common problem:
library(ProcessIsodataOuts) file_data <- c("C:/Thermo/Isodat NT/Global/User/Conflo IV Interface/Conflo IV Interface/Results/sherwood_220225_intercal_d13C/data") AAStd_name <- "772AAstd2" AA_list <- c("Ala", "Gly", "Thr", "Ser", "Val", "Leu", "Ile", "NLeu", "Pro", "Asp", "Glu", "Phe", "Tyr", "Lys") C_N <- "C" fl_nm <- "sherwood_220225_intercal_d13C" order_AAs <- "Type" # "Type" cyano <- "762cyano" fish_muscle <- "763fish1" # # ## A separate place where you want your final sample data to be stored: file_save <- "C:/Users/EcoGeoChemLab/Documents" # # ## Where this file you are using now lives: # file_home <- "C:/Users/EcoGeoChemLab/isodat_processing" ## Carbon AA std files for your lab file_save_AAstds_C <- "C:/Users/EcoGeoChemLab/Documents/AAStds_C" ## Carbon Labstd files for your lab file_save_stds_C <- "C:/Users/EcoGeoChemLab/Documents/Stds_C" ## Nitrogen AA std files for your lab file_save_AAstds_N <- "C:/Users/EcoGeoChemLab/Documents/AAStds_N" ## Nitrogen Labstd files for your lab file_save_stds_N <- "C:/Users/EcoGeoChemLab/Documents/Stds_N" ############################################################################## ############################################################################## ## Code you shouldn't need to touch: # file_sorc <- paste0(file_home, "/sorc") ## Where your source files are stored (These you should never have to touch, and should be the same if you are running normal data corrections or std test runs) ####################### # source(paste0(file_sorc, "/process_CSIA_full_run.r")) outs <- process_CSIA_full_run() all_fn_std_df <- outs$all_fn_std_df all_fn_df <- outs$all_fn_df
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.