# Hello, world!
#
# This is an example function named 'hello'
# which prints 'Hello, world!'.
#
# You can learn more about package authoring with RStudio at:
#
# http://r-pkgs.had.co.nz/
#
# Some useful keyboard shortcuts for package authoring:
#
# Build and Reload Package: 'Ctrl + Shift + B'
# Check Package: 'Ctrl + Shift + E'
# Test Package: 'Ctrl + Shift + T'
faltantes <- function(x){
cantidad <- 0
name_var <- 0
valor_falta <- 0
proporcion <- 0
cantidad <- c(1:dim(x)[2])
for(i in cantidad){
name_var[i] <- names(x[i])
valor_falta[i] <- sum(is.na(x[i]))
proporcion[i] <- (valor_falta[i])/(dim(x)[1])
}
resumen <- data.frame(name_var, valor_falta, proporcion)
return(resumen)
}
data_representativa <- function (x,p){
f <- faltantes(x);
n <- subset(f, f$proporcion > p,1);
n <- n$name_var;
retornar <- x[,n]
return(retornar);
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.