R/gauss1d.R

Defines functions gauss1d

gauss1d = function(r, I0 = 1, fwhm = 1, sd = fwhm / (2*(sqrt(2*log(2))))){
    return(colSums(rbind(sapply(X=r, FUN=function(r, I0, sd){ return( I0 * exp( (-r^2) / (2*sd^2) ) ) }, I0=I0, sd=sd))))
}
leeskelvin/astro documentation built on July 26, 2019, 7:49 a.m.