Nothing
AT.SPC.spectrum.at.depth.step <- function(spc, depth.step)
{
if(depth.step %in% unique(spc$depth.step)){
ii <- spc$depth.step == depth.step
df <- data.frame( E.MeV.u = spc$E.MeV.u[ii],
particle.no = spc$particle.no[ii],
fluence.cm2 = spc$fluence[ii])
#cat(paste("Returning", sum(ii), "entries in data frame.\n"))
return(df)
}else{
cat("Depth step not found in data. Skipping.")
return(NULL)
}
}
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.