VMPDSigmaLL <- function(vmName) {
obs <- DSigma('VMP', 'LL')
attr(obs, 'vmName') <- vmName
obs
}
getExternalStateFactor.VMPDSigmaLL <- function(vmpll, Q2 = Q2, alpha = 0) {
f1 <- getU1NNMode(Q2 = Q2, alpha = alpha)$dfQ(z)
f3 <- getU1NormalizableMode()$dfm(z)
splinefun(z, f1 * f3 / (sqrt(Q2) * mass))
}
getCfact.VMPDSigmaLL <- getCfact.VMPDSigma
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.