Nothing
IntPar <-
function(rs,rie,modo,bv)
{
rs[lower.tri(rs)] <- 0
rie[lower.tri(rie)] <- 0
nat <- rep(0,length(modo))
for (i in 1:ncol(rs))
{
for (j in 1:ncol(rs))
{
if (rs[i,j]==1 & i<j)
{
nat[i] <- "ex"
nat[j] <- "en"
}
}
}
bex <- 0; ben <- 0
for (i in 1:(length(modo)))
{
ifelse(nat[i]=="ex", bex <- bex + 1, ben <- ben + 1)
}
ind.ex <- 0; ind.en <- 0
for (i in 1:length(modo))
{
ifelse(modo[i]=="F" & nat[i]=="ex", ind.ex <- ind.ex + bv[i], ind.en <- ind.en + bv[i])
}
list(nat=nat,bex=bex,ben=ben,ind.ex=ind.ex,ind.en=ind.en,rie=rie)
}
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.