Nothing
#' @export
Nitrite<- function(Conc_std_sol, E1, E1_s, E0, EB1){
Nitrite = ((Conc_std_sol/(E1 - EB1))*E1_s) - (E0 + EB1)
return(Nitrite)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.