ligation <- function(molar.ratio, vector.mass, vector.size, insert.size)
{
insert.mass <- vector.mass*molar.ratio*(insert.size/vector.size)
return(insert.mass)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.