SubDatabase <- function(HbDatabase, Mshift= -29.97, error_Da_L=-0.06, error_Da_R=0.05){
s1 <- Mshift + error_Da_L
e1 <- Mshift + error_Da_R
subHbBeta1 <- filter(HbDatabase, Delta.mass <=e1 & Delta.mass >= s1)
return(subHbBeta1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.