if (FALSE) {
## Load data
data(transfers)
## Perform contact tracing
contactTrace <- Trace(movements=transfers,
root=2645,
tEnd='2005-10-31',
days=90)
show(contactTrace)
}
Run the code above in your browser using DataLab