Nothing
addAggInfo = function(W, aggInfoType=NULL)
{
if (!is.null(aggInfoType))
{
W = cbindAggInfo(W, aggInfoType)
}
return(W)
}
cbindAggInfo = function(W, aggInfoType)
{
# Adding aggregated information within the conditioning set
aggInfo = which(aggInfoType==c('none','meanAll','meanPairwise'),arr.ind=TRUE)
if (ncol(W)>1)
{
if (aggInfo==2)
{
xx = as.data.frame(rowMeans(W))
names(xx) = paste("Mean(", paste(names(W),collapse=", "), ")", sep="")
W = cbind(W,xx)
}
else
{
if (aggInfo==3)
{
xx = as.data.frame(combn(ncol(W), 2L, function(x) rowMeans(W[,x])))
names(xx) = combn(names(W),2, function(x) paste("Mean(",x[1],", ",x[2],")",sep=""))
W = cbind(W,xx)
}
}
}
return(W);
}
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.