qui gen `group' = 1

	qui outsheet id `group' `theta' `item_prefix'* using `response_file', replace delim(" ") noquote nolabel nonames

	* type `response_file'

	* Write out parameter data

	display as text "Setting up parameter data..."

	clear

	sort id

	isid id

	qui outsheet id type numcat a b c d1 d2 d3 d4 using `item_file', replace delim(" ") noquote nolabel nonames

	* Run estimation routine from shell

	qui findfile openirt.exe

	local execfile `r(fn)'

G WIN	OpenIRT.exe	openirt.exe

G WIN64A	OpenIRT.exe	openirt.exe

G WIN64I	OpenIRT.exe	openirt.exe

G MAC	openirt_osx	openirt.exe

G MACINTEL	openirt_osx	openirt.exe

G MACINTEL64	openirt_osx	openirt.exe

{phang}Rescale to TIMSS scale (mu=500 sd=100), see TIMSS 1999.{p_end}

{phang2}{cmd:. foreach x of varlist theta_eap theta_mle theta_pv1 theta_pv2 theta_pv3 theta_pv4 theta_pv5 {	replace `x' = `x'*100 + 500 } }{p_end}

{title:References}

{phang}

						}

			    } while (c != EOF);

			    fclose (pFile);

          while (std::getline(file, row, delim)) {

            std::vector<T_type> column;

            std::istringstream rowstream(row);