simul_confusion/Modules/ado/personal/g/guttmax.ado

*! Version 1 19 November 2008
*! Jean-Benoit Hardouin
************************************************************************************************************
* Stata program : guttmax
* Research of the maximal number of Guttman Errors for a specific score
*
* Historic :
* Version 1 (November 19, 2008) [Jean-Benoit Hardouin]
*
* Jean-benoit Hardouin, phD, Assistant Professor
* Team of Biostatistics, Clinical Research and Subjective Measures in Health Sciences (UPRES EA 4275)
* University of Nantes - Faculty of Pharmaceutical Sciences
* France
* jean-benoit.hardouin@anaqol.org
*
* Requiered Stata modules:
* -anaoption- (version 1)
* -traces- (version 3.2)
* -gengroup- (version 1)
*
* News about this program :http://www.anaqol.org
* FreeIRT Project website : http://www.freeirt.org
*
* Copyright 2008 Jean-Benoit Hardouin
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*
***********************************************************************************************************

program define guttmax , rclass
version 10
syntax anything [,Score(real -1) Response(string)]

if `score'!=-1&"`response'"!="" {
   di in red "You cannot defined in the same time the score and the response options";
   error 198
}


local step:word count `anything'
local nbitems=0
forvalues i=1/`step' {
   local step`i':word `i' of `anything'
   if `step`i''>`nbitems' {
      local nbitems=`step`i''
   }
}
di in green "Number of steps: " in ye `step'
di in green "Number of items: " in ye `nbitems'
tempname mate
matrix `mate'=J(1,`step',0)


if `score'!=-1 {
    if `score'>`step' {
        di in red "You cannot defined a score greater to the maximal possible score";
        error 198
	}
    di in green "Score: " in ye `score'
	local maxstep=0
	forvalues i=1/`nbitems' {
	   local nstep`i'=0
	   forvalues j=1/`step' {
		   if `step`j''==`i' {
			  local ++nstep`i'
			  if `nstep`i''>`maxstep' {
				 local maxstep=`nstep`i''
			  }
		   }
	   }
	}

	tempname calcul
	matrix `calcul'=J(`nbitems',`maxstep',0)
	*matrix list `calcul'
	forvalues i=1/`nbitems' {
	*di "item `i'"
	   local n=1
	   forvalues j=1/`step' {
		  if `step`j''==`i' {
			  forvalues s=`n'/`nstep`i'' {
				  matrix `calcul'[`i',`s']=`calcul'[`i',`s']+`j'
				  matrix list `calcul'
			  }
		  local ++n
		  }
	   }
	   forvalues j=2/`nstep`i'' {
		  matrix  `calcul'[`i',`j']=`calcul'[`i',`j']/`j'
		  di "j=`j'"
		  matrix list `calcul'
	   }
	}
	*matrix list `calcul'

	while (`score'>0) {
	   local max=0
	   forvalues i=1/`nbitems' {
		  local s=min(`score',`nstep`i'')
		  *di "forvalues j=1/`s' {"
		  forvalues j=1/`s' {
			  if `calcul'[`i',`j']>`max' {
				  local maxi=`i'
				  local maxj=`j'
				  local max=`calcul'[`i',`j']
			  }
		  }
	   }
	   *di "maxi=`maxi' maxj=`maxj'"
	   local d=0
	   forvalues l=1/`step' {
		  if `step`l''==`maxi'&`mate'[1,`l']==0&`d'<=`maxj' {
			  matrix `mate'[1,`l']=1
			  local ++d
		  }
	   }
	   forvalues l=1/`maxj' {
		  matrix `calcul'[`maxi',`l']=0
	   }
	   local score=`score'-`maxj'
	   *matrix list `calcul'
	}
}
else { /*if reponse*/
    local nbrep: word count `response'
    if `nbrep'!=`nbitems' {
        di in red "You cannot defined a number of responses different of the number of items";
        error 198
	}
	
	tempname cpt 
	qui matrix `cpt'=J(`nbitems',1,0)
	forvalues i=1/`nbitems' {
	   local rep`i':word `i' of `response'
	   qui matrix `cpt'[`i',1]=`rep`i''
	}
	forvalues i=1/`step' {
	   if `cpt'[`step`i'',1]>0 {
          qui matrix `mate'[1,`i']=1
		  qui matrix `cpt'[`step`i'',1]=`cpt'[`step`i'',1]-1
	   }
	   else {
          qui matrix `mate'[1,`i']=0
	   }
   }
}
local emax=0

forvalue i=1/`step' {
   forvalues j=`=`i'+1'/`step' {
      if `mate'[1,`i']==0&`mate'[1,`j']==1 {
         local ++emax
      }
   }
}


if `score'!=-1 {
   di in green "Responses profile generating the most important number of Guttman error"
   matrix list `mate'  ,noheader nonames
   di in green "Max number of Guttman errors : " in ye `emax'
}
else {
   di in green "Responses profile"
   matrix list `mate'  ,noheader nonames
   di in green "Number of Guttman errors : " in ye `emax'
}
return scalar maxegutt =`emax'
end