1 | my.ephi(clos.data)
|
clos.data |
1 2 3 4 5 6 7 8 9 10 11 12 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (clos.data)
{
clos.new <- merge(cbind(clos.data$time, clos.data$phi.case,
clos.data$phi.control), cbind(clos.data$w.time, clos.data$weights),
by = 1)
return((clos.new[, 2] - clos.new[, 3]) %*% clos.new[, 4])
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.