get_observed_pairs: Pairs with at least one shared visit

In alexmarzel/svisits: Shared Clinic Visit Dates Identify Steady HIV Positive Partnerships for Research

Description

Find all the pairs that shared at least a single visit.

Usage

get_observed_pairs(tested_db)

Arguments

tested_db

visits in long format with each row representing a visit date. See simulated_data for an example. It should contain columns "subject" with (numeric) patient identifiers and "dates" with the dates of clinic visits.

Value

a table object containing the number of shared visits for all pairs with at least one shared visit

Examples

# a short example (with artificial data)
dates_long <- data.frame(subject=c(12,15,2,202,31,15, 202), 
                         dates=as.factor(c(rep("2001-03-16",5),rep("2011-06-20",2))))
get_observed_pairs(dates_long)

# example with the simulated dates based on the real distribution                         
# load data
data("simulated_data")
db_dates <- prepare_db(your_database = simulated_data,
                       ids_column = "subject",
                       dates_column = "sim_dates")

# get unadjusted pairs
unadjusted_observed_pairs <- get_observed_pairs(db_dates)

alexmarzel/svisits documentation built on May 12, 2019, 1:36 a.m.