running, but incomplete, stis_corrtag function