snippet val_cal
	val.${1:name} <- validate(${1:name}, B = 1000. seed = 1)
	ci(val.${1:name})
	cal.${1:name} <- calibrate(${1.name}, B = 1000, seed = 1)
	plot(cal.${1:name})