Update ChangeDetection_Stan.R

The function stan wasn't using the model stored in "model" (it was self referencing to sample) and not working.