```r
# Only use one core here, not to offend the CRAN checks
mm.L4 <- mmkin(c("SFO", "FOMC"), cores = 1,
               list("FOCUS L4" = FOCUS_2006_L4_mkin), 
               quiet = TRUE)
plot(mm.L4)
```

<img src="FOCUS_L_files/figure-html/unnamed-chunk-15-1.png" width="672" />