Nothing
CGaM <-
function(times, tao, K, covar, theta) {
m <- rep(0, K)
for(i in 1:length(times)) {
for(k in 1:K) {
if (tao[k + 1] < times[i]) {
m[k] <- m[k] + (tao[k + 1] - tao[k]) * exp(theta %*% covar[i, ])
}
if (tao[k] < times[i] && times[i] <= tao[k + 1]) {
m[k] <- m[k] + (times[i] - tao[k]) * exp(theta %*% covar[i, ])
}
}
}
return(m)
}
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.