snippet stepdown
	${1:name} <- stepdown(${2:name})
	${1:name}
	${3:name} <- stepdownCI(${1:name}, B = 1000, seed = 1)
	${5:name} <- ${3:name}$final.model