how to fit four parameter logistic regression (poisson) R

Question

I\'m trying to fit a four parameter logistic regression to model bird species richness (Patch_Richness) in response to forest cover (FOREST500). I need to add km as a co-variabl