Nothing
coeflin <-
function(mat, lmat){
matcoeflin <- do.call("cbind",lapply(1:nrow(mat), function(x){
nomsvars <- colnames(mat)[which(mat[x,]==1)]
prod <- apply(lmat[,nomsvars, drop=FALSE], 1, prod)
return(prod)
}))
colnames(matcoeflin) <- rownames(mat)
return(matcoeflin)
}
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.