data-raw/feRdata.R

In feranpre/feR: Basic functions that I use all the time

## code to prepare `feRdata` dataset goes here

feRdata <- data.frame(age = rnorm(30, mean = 30, sd = 5),
                      height = sample(x = 120:205, size = 30, replace = TRUE),
                      sex = sample(x = c("Male", "Female"), prob = c(.5, .5),
                                   size = 30, replace = TRUE),
                      blond = sample(x = c("Yes", "No"), prob = c(.2, .8),
                                     size = 30, replace = TRUE),
                      health = sample(x = c("Bad", "Normal", "Excelent"),
                                      prob = c(0.3, .3, .3), size = 30, replace = TRUE)
)

feRdata$age[feRdata$sex == "Male"] <- rnorm(sum(feRdata$sex == "Male"), mean = 30, sd = 5)
feRdata$age[feRdata$sex == "Female"] <- rnorm(sum(feRdata$sex == "Female"), mean = 30, sd = 5)

feRdata <- rbind(feRdata, list(34, NA, NA, NA, NA))
feRdata <- rbind(feRdata, list(33, NA, "Male", NA, NA))
feRdata <- rbind(feRdata, list(22, NA, NA, "No", NA))
feRdata <- rbind(feRdata, list(NA, NA, NA, "No", "Bad"))
feRdata$empty <- rep(NA, nrow(feRdata))
feRdata$health <- as.factor(feRdata$health)

feRdata$health_V1 <- NA
feRdata$health_V2 <- NA
feRdata$health_V3 <- NA




usethis::use_data(feRdata, overwrite = TRUE)
usethis::use_r("datos")