A discrete time population genetic model for X-linked recessive diseases