R script to model predator-prey dynamics with prey vigilance and parasitized predators