## code to prepare datasets for the chapter "estatística básica"
library(tidyverse)
# fish------------------------------------------------------------------------
fish <- read.delim("data-raw/fish.csv")
head(fish)
glimpse(fish)
usethis::use_data(fish, overwrite = TRUE)
# lagartos------------------------------------------------------------------------
lagartos <- read.delim("data-raw/lagartos.txt")
lagartos$Sex <- trimws(lagartos$Sex)
lagartos$Sex <- as.factor(lagartos$Sex)
levels(lagartos$Sex)
str(lagartos)
usethis::use_data(lagartos, overwrite = TRUE)
# parasitas------------------------------------------------------------------------
parasitas <- read.delim("data-raw/parasitas.txt", row.names = 1)
head(parasitas)
usethis::use_data(parasitas, overwrite = TRUE)
# roadkills------------------------------------------------------------------------
roadkills <- read.delim("data-raw/RoadKills.txt")
head(roadkills)
usethis::use_data(roadkills, overwrite = TRUE)
# uv_cells------------------------------------------------------------------------
uv_cells <- read.csv("data-raw/UV_cells.csv", sep = ";")
head(uv_cells)
usethis::use_data(uv_cells, overwrite = TRUE)
# fragmentos------------------------------------------------------------------------
fragmentos <- read.csv("data-raw/fragmentos.csv", sep = ";")
head(fragmentos)
usethis::use_data(fragmentos, overwrite = TRUE)
# Cores -------------------------------------------------------------------
cores <- read.csv2("https://ndownloader.figshare.com/files/10250700", header = TRUE)
usethis::use_data(cores, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.