View source: R/fcondXA2cens2.R
fcondXA2cens2 | R Documentation |
This function evaluates a density path conditionally on a posterior realization of the normalized measure.
fcondXA2cens2(xleft, xright, censor_code_filters, distr, Tauy, Tauz, J)
For internal use
## The function is currently defined as
function(xleft, xright, censor_code_filters, distr, Tauy, Tauz,
J) {
pJ <- J / sum(J)
K <- matrix(NA, nrow = length(Tauy), ncol = length(xleft))
for (i in seq(Tauy)) {
K[i, ] <- dkcens2(
xleft = xleft, xright = xright, c_code_filters = censor_code_filters,
distr = distr, mu = Tauy[i], sigma = Tauz[i]
)
}
fcondXA2cens <- apply(K, 2, function(x) sum(x * pJ))
return(fcondXA2cens)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.