R/FinalTable.R

In HTDA: HTDA (High Throughput Data Analysis)

Defines functions FinalTable

Documented in FinalTable

FinalTable <- function(x){
	peaks <- x$a[[2]][2]
        BaseMZ <- x$a[[3]][4]
        BaseMZ <- gsub("m/z","",BaseMZ)
        tic1 <- sum(as.numeric(x$b[,2]))
        total <- c(peaks,BaseMZ,tic1)
        return(total)
        }

Try the HTDA package in your browser