Nothing
#' Computes the posterior distribution of hazard value for a vector x for the Piecewise Linear Log Hazard model (PLLH)
#' @param x Vector of times to compute the posterior mean hazard function
#' @param G1 List of posterior samples from the BayesPiecewiseLinearLogHazard function.
#' @return Matrix containing the posterior distribution of hazard values h(x)
#'@export
GetALLHazLogSlope = function(x,G1){
GetHazPLLH = function(x,s,lam,J){
y=x
slopes = diff(lam)/diff(s)
slopes=slopes[1:(J+1)]
for(m in 1:length(x)){
for(k in 1:(J+1)){
if((x[m]>s[k]) && (x[m]<=s[k+1])){
y[m]=(x[m]-s[k])*slopes[k]+lam[k]
}
}
}
return(y)
}
HAZ = matrix(ncol=length(x),nrow=nrow(G1[[1]]))
y1=rep(0,length(x))
y=x
for(b in 1:nrow(G1[[1]])){
s=G1[[1]][b,]
lam=G1[[2]][b,]
J = G1[[3]][b]
HAZ[b,]=GetHazPLLH(x,s,lam,J)
}
return(HAZ)
}
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.