setwd("~/Documents/Lab1")
library(pacman)
p_load("class","caret","tidyr","mlbench","e1071","ggplot2","knitr","dplyr","readr", "prettydoc","xfun","readr","DT")
encuestas <- read_csv("encuestas1.csv")##
## ── Column specification ────────────────────────────────────────────────────────
## cols(
## .default = col_double(),
## Afectacion = col_character()
## )
## ℹ Use `spec()` for the full column specifications.datatable(encuestas)