Estimating SIR model parameters in R

Hello,

does anyone have a reference, pointer, example etc.. on how to estimate 
the parameters for a classical SIR model for spread of disease with R?

I am particlarly interested in the case where only the R term is known 
in time.


Cheers

Marco