Shell model and embedded cluster calculations of hole bipolarons in BaTiO3