Nothing
Summaryvariable0<-
function (x, maxsum = 7, digits = max(3, getOption("digits") -
3),pourcent=1)
{
if (is.numeric(x)) {
ttt <- Summarynumeric0(x, digits = digits)
}
else {
if (is.ordered(x)) {
ttt <- Summaryordered0(x, maxsum = maxsum,pourcent=pourcent)
}
else {
if (is.factor(x)) {
ttt <- Summaryfactor0(x, maxsum = maxsum,pourcent=pourcent)
}
else {
ttt <- NA
}
}
}
nnaa <- round(sum(is.na(x)))
names(nnaa) <- "? (n)"
c(ttt, nnaa)
}
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.