Bg Test In R