##---- 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 (ip, x)
{
i = iif(ip, x)
if (is.null(dim(i$f)))
dim(i$f) = c(length(i$x), length(i$f))
f = apply(i$f, 1, sum)
r = list(x = i$x, f = f, ni = ncol(i$f))
return(r)
}
Run the code above in your browser using DataLab