I hereby claim:
- I am jclopeztavera on github.
- I am jclopeztavera (https://keybase.io/jclopeztavera) on keybase.
- I have a public key ASC0eMopnUAJneJrO7br9v0vOQPnWs2xjgMVcujKSCyssAo
To claim this, I am signing this object:
## Cargando los paquetes necesarios para el análisis | |
if (!require(tidyverse)) { | |
install.packages(tidyverse) | |
} | |
library(tidyverse) | |
if (!require(googledrive)) { | |
install.packages("googledrive") | |
} | |
library(googledrive) |
I hereby claim:
To claim this, I am signing this object:
#' --- | |
#' title: "parse_curp" | |
#' author: "Juan C. López Tavera" | |
#' date: "10/6/2017" | |
#' output: | |
#' html_document: | |
#' keep_md: yes | |
#' pdf_document: default | |
#' --- | |
#' |
transform <- function(x, target.mean = 500, target.sd = 100) { | |
y <- target.mean + (x - mean(x)) * (target.sd/sd(x)) | |
return(y) | |
} |
Thank you for your interest in contributing to the open source software project (“Project”) made available by the author, Juan C. López Tavera, or its affiliates (“Author”). This Individual Contributor License Agreement (“Agreement”) sets out the terms governing any source code, object code, bug fixes, configuration changes, tools, specifications, documentation, data, materials, feedback, information or other works of authorship that you submit or have submitted, in any form and in any manner, to the Author in respect of any of the Projects (collectively “Contributions”). If you have any questions respecting this Agreement, please contact jc.lopeztavera@gmail.com.
You agree that the following terms apply to all of your past, present and future Contributions. Except for the licenses granted in this Agreement, you retain all of your right, title and interest in and to your Contributions.
Copyright License. You hereby grant, and agree to grant, to the
loader <- function(...) { | |
x <- list(...) | |
p <- x[sapply(X = x, FUN = is.character)] | |
for (i in 1:length(p)) { | |
if (!p[[i]] %in% installed.packages()) { | |
install.packages(p[[i]]) | |
} | |
if (!require(p[[i]], character.only = TRUE)) { | |
library(p[[i]], character.only = TRUE) | |
} |
## Function to test for normality of numeric variables in a dataframe | |
is.normal <- function(x) { | |
z <- lapply(x[sapply(x, is.numeric)], shapiro.test) | |
lz <- length(z) | |
y <- logical(length = lz) | |
for (i in 1:lz) { | |
if (z[[i]]$p.value >= 0.1) { | |
y[i] <- TRUE | |
} else { | |
y[i] <- FALSE |