*! ISHU 1.0.0 09 July 2012
* Based on NJC 1.0.1 29 April 2004
* and NJC 1.0.0 1 August 2001
* IO(kappa)
* and Fisher (1993) formulas
* verified with the values from Batschelet´s Table F
program i2kappa, rclass
	version 9.0
	args kappa garbage

	if "`kappa'" == "" | "`garbage'" != "" {
		di as error "use as i0kappa #"
		exit 198
	}
	quietly {
	i0kappa `kappa'
    local i0kappa = r(i0kappa)
	*di as res `i0kappa'
    i1kappa `kappa'
	local i1kappa = r(i1kappa)
    }
    local i2kappa = `i0kappa'-(2/`kappa')*`i1kappa'
	di as res `i2kappa'
    return scalar i2kappa = `i2kappa'
end