###############################################################################
library(remotes)
install_github("timriffe/DemoTools")

library(DemoTools)

###########################################
Age <- 0:99
length(Age)

data=read.csv("D:/age.csv", header=FALSE)
pop1m_pasex=as.matrix(data)
length(pop1m_pasex)

w05 <- check_heaping_whipple(pop1m_pasex, Age, 25, 60, digit = c(0,5))

w0 <- check_heaping_whipple(pop1m_pasex, Age, 25, 60, digit = 0)
w5 <- check_heaping_whipple(pop1m_pasex, Age, 25, 60, digit = 5)

# Whipple types
w3=check_heaping_whipple(pop1m_pasex, Age, 25, 60, digit = 3)