## Load data
data(transfers)
## Perform contact tracing
contactTrace <- Trace(movements=transfers,
root=2645,
tEnd='2005-10-31',
days=90)
show(contactTrace)
## Generate an html report showing details of the contact tracing for
## root 2645.
## Note: Creates the files 2645.html and 2645.png in the working
## directory.
Report(contactTrace)
Run the code above in your browser using DataLab