R/add_rxn_component.R

In dimitriskokoretsis/qpcrR:

.add_rxn_component <- function(m,name,stock.conc,working.conc,rxn.vol,MM) {
  vol.per.rxn <- working.conc * rxn.vol / stock.conc
  new <- c(vol.per.rxn,
           MM*vol.per.rxn,
           stock.conc,
           working.conc)
  if(!is.null(m)) {
    m <- rbind(m,new)
  } else {
    m <- matrix(new,nrow=1)
  }

  rownames(m)[nrow(m)] <- name

  return(m)
}