Publications by adityakhanna
Publish Document
# Analyze calibration data # Libraries ---------- rm(list=ls()) library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(ggplot2) # Read data and set meta-par...
19 sym R (6561 sym/22 pcs) 14 img
Document
# Model differential dissolution rates between TGW and MSM # Reference: https://rdrr.io/cran/EpiModel/man/dissolution_coefs.html # Conceptual explanation ----------- ## See model-differential-dissolution-rates.R for conceptual explanation. rm(list=ls()) # Data and libraries ----------- library(EpiModel) ## Loading required package: deSolve #...
5 sym R (38134 sym/39 pcs)
Document
rm(list=ls()) library(ergm) ## Loading required package: network ## network: Classes for Relational Data ## Version 1.16.0 created on 2019-11-30. ## copyright (c) 2005, Carter T. Butts, University of California-Irvine ## Mark S. Handcock, University of California -- Los Angeles ## David R. Hunter, Penn Sta...
5 sym R (40276 sym/37 pcs)
Document
# Assign categories as per race/ethnicity, age group and gender identity # Initialize non-network attributes # Notes on data location ---------- ## N.B. See Excel sheet "agent population updated" at: ## /cche-lab/data/p2m_parameters_chicago/population_estimates/anna_population_estimation/output/Population estimates_ACS_2011_2015_chicago_updat...
5 sym R (27946 sym/41 pcs)
Visualize reasonabless of simulated networks
Heatmaps for imputation with independent models Heatmaps for the imputed networks are below. Libraries and Data Start by loading the libraries rm(list=ls()) ## Visualize heatmap for imputed graphs suppressPackageStartupMessages(library(sna)) suppressPackageStartupMessages(library(network)) suppressPackageStartupMessages(library(ggplot2)...
725 sym R (1969 sym/12 pcs) 4 img
FB data imputation: read data, mark unobserved edges as NA
## create network with unobserved edges from wave 1 ## Code for creating igraph with nonrespondents of degree >= 30 is in: `/project/khanna7/Projects/UConnect/UConnect_FB/FB_W1_Identified_4.15.2015/descriptives/ergm-imputation-ronet-w1.R` ## Code gor creating igraph with degree cutoffs 1, 2, 3, and 4 is in `csv_to_igraph_degree_subsets.R` rm(...
5 sym R (3088 sym/11 pcs)
Convert matrix to class network
## create network with unobserved edges from wave 1 rm(list=ls()) ## libraries library(network) ## network: Classes for Relational Data ## Version 1.15 created on 2019-04-01. ## copyright (c) 2005, Carter T. Butts, University of California-Irvine ## Mark S. Handcock, University of California -- Los Angeles ## ...
5 sym R (892 sym/3 pcs)
Document
# Analyze calibration data # Libraries ---------- rm(list=ls()) library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(ggplot2) # Read data and set meta-par...
19 sym R (6557 sym/20 pcs) 14 img
Syphilis model with potentially too much testing and treatment
rm(list=ls()) library(ggplot2) counts <- read.csv("../data/10950_daily_entry_no.x_feb_13/instance_1/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" ...
37 sym R (18213 sym/22 pcs) 9 img
NEST preliminary data
library(ggplot2) counts <- read.csv("../instance_1/output/counts.csv") dim(counts) ## [1] 5476 317 nrow(counts)/365 ## [1] 15.00274 sort(colnames(counts)) ## [1] "asm_deaths" ## [2] "casual_edge_count" ## [3] "casual_sex_acts" ## [4] "casual_sex_with_condom_oral" ...
28 sym R (16440 sym/14 pcs) 8 img