elizabethriddle

# Import data and transform to unix epoch
occupancy_df <- read_csv("~/Documents/MRes/occupancy_df.csv")
occupancy_df$spell.start_sec<-as.numeric(as.POSIXct(occupancy_df$spell.start))
occupancy_df$spell.end_sec<-as.numeric(as.POSIXct(occupancy_df$spell.end))

# Filter to only have medical
occupancy_df_medical <- occupancy_df[occupancy_df$Specialty.Group=='Medical',]
occupancy_df_medical <- occupancy_df_medical[!is.na(occupancy_df_medical$Specialty.Group),]

HorridTom

library(digest)
library(stringr)
library(readr)

hashed_id <- function(x, salt){
  y <- paste(x, salt)
  y <- sapply(y, function(X) digest(X, algo = "sha1"))
  as.character(y)
}

gabrielburcea

hashed_id <- function(x, salt){
  y <- paste(x, salt)
  y <- sapply(y, function(X) digest(X, algo = "sha1"))
  as.character(y)
}

data$PseudoID <- hashed_id(data$PseudoID, "somesalt1234")

data$Postcode.Sector <- hashed_id(data$Postcode.Sector, "somesalt1234")