change a example using rstan