molar_solution <- function( x, y) {
58.433 * x * y/10^6
}
molar_solution2 <- function( x, y, FW) {
FW * x * y/10^6
}
molar_solution3 <- function( x, y, formula) {
FWs = c(58.443, 74.5513)
names(FWs) = c('NaCl', 'KCl');
FW = FWs[formula]
FW * x * y / 10^6
}
molar_solution( 100, 500);
molar_solution2( 100, 500, 58.433);
molar_solution3( 100, 500, 'NaCl' );