## Load data
data(transfers)
## Perform contact tracing
contactTrace <- Trace(movements=transfers,
root=2645,
tEnd='2005-10-31',
days=90)
## Generate an html report showing details of the contact tracing for
## root 2646.
## Note: Creates the files 2645.html and 2645.png in the working
## directory.
Report(contactTrace)
## It's possible to generate reports for a list of ContactTrace objects.
## Perform contact tracing for ten of the included herds
root <- sort(unique(c(transfers$source, transfers$destination)))[1:10]
## Perform contact tracing
contactTrace <- Trace(movements=transfers,
root=root,
tEnd='2005-10-31',
days=90)
## Generate reports
## Note: Creates the files 1.html, 2.html, ..., 10.html and
## 1.png, 2.png, ..., 10.png in the working directory
Report(contactTrace)
Run the code above in your browser using DataLab