Lab 3_Reproductive Number

Remove all objects from workspace.

remove (list = objects() ) 

Assuming; contact_rate = c transmission_probability = tp infectious_period = ip

1. what is the reproductive number for

1. c = 10, tp = 0.06, ip = 4

Compute value of parameters

c = 10
tp = 0.06
ip = 4

Compute Ro - Reproductive number

Ro = c * tp * ip

print reproductive number

cat ("Reproductive number =", Ro)

## Reproductive number = 2.4

Description:

If contact rate is 10 contacts/day, transmission probability is 0.06 and infectious period is 4 days, the reproductive number will equal 2.4.

Ro = 2.4 meaning 2.4 secondary infections arising from a single individual infectious period.

2. c = 8, tp = 0.15, ip = 6

Parameters

c = 8
tp = 0.06
ip = 4

Compute Ro - Reproductive number

Ro = c * tp * ip

print reproductive number

cat ("Reproductive number =", Ro)

## Reproductive number = 1.92

Description:

If contact rate is 8 contacts/day, transmission probability is 0.15 and infectious period is 6 days, the reproductive number will equal 1.92.

Ro = 1.92 meaning 1.92 secondary infections arising from a single individual infectious period