Now passes R CHECK