is_effective function

Is an R object "effective"