In phillydao/deidentify: De-identifies Data for Public Release

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(deidentify)

names(deidentify::initiations)
head(data.frame(deidentify::initiations))

temp <- make_k_score(deidentify::initiations, columns = c("race"))
temp
summary(temp$number_of_observations)

temp <- make_k_score(deidentify::initiations, columns = c("race", "gender"))
temp
summary(temp$number_of_observations)

temp <- make_k_score(deidentify::initiations, columns = c("race", "gender", "offense_category"))
nrow(temp)
head(temp)
tail(temp)
summary(temp$number_of_observations)

phillydao/deidentify documentation built on Feb. 4, 2021, 2:31 p.m.