README.md

In bbartholdy/hitchr: A random sample generator based on The Hitchhiker's Guide to the Galaxy

hitchr

Random sample generator based on Douglas Adams’ The Hitchhiker’s Guide to the Galaxy. It also allows random insertion of NAs in a dataset (inspired by the wakefield package).

:warning: Currently in development. No warranty for deprecated functions as I come up with names I like better.

To install:

devtools::install_github("bbartholdy/hitchr")

:exclamation:Important Note:exclamation:

This package deals with the concept of ‘race’ in a strictly biological sense; i.e., there is no way to biologically distinguish discrete races within the Homo sapiens species (despite claims to the contrary).

This should not distract from the very real concept of social ‘race’, and the social injustice that currently persists across the globe.

BlackLivesMatter

StopAsianHate

Examples

hitchr::infinite_improbability_drive(10) # generates a random sample of 10 individuals
# or
hitchr::iidr(10)

| race | sex | age | height | weight | IQ | occupation | |:--------------|:-------|----:|---------:|----------:|----:|:----------------------------------| | human | female | 46 | 169.7442 | 70.94837 | 106 | Loan Interviewers and Clerks | | dentrassi | female | 11 | 241.9265 | 195.88013 | 128 | Sauce Chef | | human | female | 48 | 166.6719 | 68.93619 | 104 | Retail Store Manager | | golgafrinchan | female | 43 | 162.0785 | 57.60543 | 111 | Hairdresser | | golgafrinchan | female | 64 | 162.8788 | 61.95010 | 104 | Telephone Sanitiser | | human | male | 20 | 168.3627 | 79.99588 | 92 | Animal Kennel Supervisor | | vogon | male | 82 | 227.1756 | 344.21806 | 111 | Budget Accountant | | golgafrinchan | female | 54 | 154.0327 | 47.33048 | 102 | Lawyer | | vogon | female | 69 | 234.0460 | 357.10865 | 118 | Certified Public Accountant (CPA) | | human | female | 44 | 170.4220 | 69.74436 | 111 | Cost Analysis Engineer |

Missing values can be inserted symmetrically (symm = T): equal number of NAs in each column, or asymmetrically (symm = F): random distribution in the columns. To insert missing values, specify the desired proportion of missing values (0 to 1).

hitchr::iidr(10, na_prob = 0.2, symm = T)

| race | sex | age | height | weight | IQ | occupation | |:--------------|:-------|----:|---------:|----------:|----:|:---------------------------------| | golgafrinchan | male | 60 | 162.7905 | 78.49136 | 82 | Telephone Sanitiser | | vogon | male | 155 | 229.3018 | 356.81475 | NA | Court Clerk | | NA | male | 41 | NA | 139.65722 | 103 | Relief Cook | | golgafrinchan | female | NA | 167.8633 | 70.90681 | 103 | Telephone Sanitiser | | dentrassi | NA | 71 | 249.7311 | 201.64804 | 121 | NA | | vogon | other | 132 | NA | 362.72088 | 122 | Administrative Assistant | | dentrassi | male | 57 | 232.3380 | NA | NA | Catering Specialist | | human | male | 19 | 165.4532 | 78.66801 | NA | Recreational Vehicle Mechanic | | vogon | female | NA | NA | 366.07988 | 126 | Catering Administrator | | vogon | other | 33 | NA | NA | 118 | Radio & TV Station Administrator |

Races currently available:

hitchr:::race_index()

## [1] "humans"         "vogons"         "golgafrinchans" "dentrassi"

Stats currently available:

hitchr:::stats_index()

## [1] "race"       "sex"        "age"        "height"     "weight"    
## [6] "IQ"         "occupation"

Sexual dimorphism in the height of males and females of different races:

hitchr_sample <- hitchr::iidr(1000)
hitchr_sample %>%
  filter(sex == "male" | sex == "female") %>%
  group_by(race) %>%
  ggplot(aes(x = sex, y = height, fill = race)) +
    geom_violin() +
    theme_minimal() +
    scale_fill_viridis_d() +
    facet_wrap(~ race) +
    theme(legend.position = "none")

bbartholdy/hitchr documentation built on Nov. 21, 2021, 9:16 p.m.