library(tidyverse) churnData <- as_tibble(read.table("WA_Fn-UseC_-Telco-Customer-Churn.csv", sep=",",he