In UBC-MDS/datascience.eda.R: Common Functions for EDA

knitr::opts_chunk$set(echo = TRUE)
library(devtools)
library(readr)
load_all()

Testing explore_text_columns function:

text_df <- read_csv("testthat/data/spam.csv", locale(encoding = "latin1"),
                 col_names=c("target", "sms", "col3", "col4", "col5"),
                 col_types=NULL)

results <- explore_text_columns(text_df)

library(palmerpenguins)
results <- explore_numeric_columns(penguins)

library(dplyr)
library(MASS)
df <- data.frame(lapply(survey[, c('Sex','Clap')], as.character),
                 stringsAsFactors=FALSE) %>% tibble()

results <- explore_categorical_columns(df, c('Sex','Clap'))
results

UBC-MDS/datascience.eda.R documentation built on March 24, 2021, 2:22 a.m.