Defines functions AT.SPC.spectrum.at.depth.step

Documented in AT.SPC.spectrum.at.depth.step

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"))
        cat("Depth step not found in data. Skipping.")

Try the libamtrack package in your browser

Any scripts or data that you put into this service are public.

libamtrack documentation built on May 31, 2017, 2:37 a.m.