Publications by adityakhanna

30 years - slow growth rate

rm(list=ls()) library(ggplot2) counts <- read.csv("../instance_1-30year/output/counts.csv") dim(counts) ## [1] 10951 317 nrow(counts)/365 ## [1] 30.00274 sort(colnames(counts)) ## [1] "asm_deaths" ## [2] "casual_edge_count" ## [3] "casual_sex_acts" ## [4] "casual_sex_wit...

28 sym R (16463 sym/14 pcs) 8 img

Population Initialization

# set up structure for incarceration and smoking rm(list=ls()) # Libraries ---------- library(ergm) ## Loading required package: network ## ## 'network' 1.17.1 (2021-06-12), part of the Statnet Project ## * 'news(package="network")' for changes since last version ## * 'citation("network")' for citation information ## * 'https://statnet.org' f...

29 sym R (5796 sym/23 pcs) 1 img

Table 3 - CLC Project 5

# REPRODUCE INFERENTIAL TABLES (3-5) FROM PRIOR PAPER rm(list=ls()) # Set working directory --------------------------- setwd("/Volumes/caas/CADRE CLC Data Project5/Clean Data/AK-SU-NETWORKS-ROUT") # Load libraries --------------------------- library(haven) library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked ...

12 sym R (3965 sym/7 pcs)