format_simca: Formats Peak.list for SIMCA

Description Usage Arguments Value Examples

View source: R/formatting-functions.R

Description

Formats Peak.list for import into SIMCA

Usage

1
2
3
4
5
6
7
8
format_simca(
  Peak.list = NULL,
  Sample.df,
  Sample.data,
  tbl.id = NULL,
  QC.id = "Pooled_QC_",
  ...
)

Arguments

Peak.list

data frame containing combined ion mode peaklist with ion mode duplicates removed. Alternatively can be retrieved from databases. Default is NULL

Sample.df

data frame with class info as columns. Must contain a separate row entry for each unique sex/class combination. Must contain the columns 'Sex','Class','n','Endogenous'.

Sample.data

data frame with phenotype data as columns and a row for each study sample. First column must be a unique sample identifier with the header 'CT-ID'. Phenotype columns may vary, but must include two columns called 'Plate Number' and 'Plate Position' for determining run order. 'Plate Number' must be numeric and is equivalent to batch number. 'Plate Position' must be alphanumeric and corresponds to row(alpha) and column(numeric) positions on, e.g. a 96-well plate

tbl.id

character Table name to draw from database. Default is NULL

QC.id

character vector specifying identifier in filename designating a Pooled QC sample. Only the first value will be used. Default is 'Pooled_QC_'

...

Arguments to pass parameters to database functions

Value

NULL testing

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
library(LUMA)
if(require(lcmsfishdata, quietly = TRUE)) {
  # is case sensitive on Linux
  file <- system.file('extdata','Sample_Class.txt', package = "lcmsfishdata")
  Sample.df <- read.table(file, header = TRUE, sep = "\t")
 # is case sensitive on Linux
 file2 <- system.file('extdata','Sample_Data.csv', package = "lcmsfishdata")
  Sample.data <- read.table(file2, header = TRUE, sep = ",")
 Peak.list <- Peaklist_db$Peaklist_Normalized
  test <- format_simca(Peak.list = Peak.list, Sample.df = Sample.df, Sample.data = Sample.data)
}

USEPA/LUMA documentation built on Aug. 29, 2020, 1:40 p.m.