File restructure #1

Modules/ado/personal/g/guttmax.ado

@@ -1,181 +0,0 @@
-*! 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