File restructure #2

2024-04-19 16:48:36 +02:00
parent ecac05b9c4
commit 0e9e01eca8
702 changed files with 272561 additions and 1 deletions
--- a/Modules/ado/personal/t/testclv.ado
+++ b/Modules/ado/personal/t/testclv.ado
@ -0,0 +1,142 @@
+program define testclv
+syntax [,corr(real 0) nosim]
+
+clear
+qui set matsize 800
+qui set memory 128m
+set more off
+
+if `corr'==0 {
+   local rho 0.0
+}
+else if `corr'==1 {
+   local rho 1.0
+}
+else {
+   local rho 0`corr'
+}
+
+if "`sim'"=="" {
+   capture use "C:\Documents and Settings\Jean-Benoit\Mes documents\THESE\clv\simul (rho=`rho')\result.dta", clear
+   if _rc==0 {
+      mkmat *,matrix(result)
+      use "C:\Documents and Settings\Jean-Benoit\Mes documents\THESE\clv\simul (rho=`rho')\resultpoly.dta", clear
+      mkmat *,matrix(resultpoly)
+      use "C:\Documents and Settings\Jean-Benoit\Mes documents\THESE\clv\simul (rho=`rho')\result2.dta", clear
+      mkmat *,matrix(result2)
+      use "C:\Documents and Settings\Jean-Benoit\Mes documents\THESE\clv\simul (rho=`rho')\resultpoly2.dta", clear
+      mkmat *,matrix(resultpoly2)
+   
+      count if resultpoly21!=0
+      local deb=r(N)+1
+   }
+   else {
+      matrix result=J(100,14,0)
+      matrix resultpoly=J(100,14,0)
+      matrix result2=J(100,14,0)
+      matrix resultpoly2=J(100,14,0)
+      local deb=1
+   }
+   forvalues i=`deb'/100 {
+      di "`i'" _c
+      qui simirt,dim(7 7) cov(1 1 `rho') clear nbobs(500) store(C:\Documents and Settings\Jean-Benoit\Mes documents\THESE\clv\simul (rho=`rho')\data`i') replace
+      di "." _c
+      qui clv i*,nodendro nobiplot
+      di "." _c
+      local group:word 1 of `r(bestthresold)'
+      local group2:word 2 of `r(bestthresold)'
+      qui clv,nodendro nobiplot cons(`group')
+      di "." _c
+      matrix tmp=r(affect)
+      matrix result[`i',1]=tmp
+      di "." _c
+      qui clv,nodendro nobiplot cons(`group2')
+      di "." _c
+      matrix tmp=r(affect)
+      matrix result2[`i',1]=tmp
+   
+      di "." _c
+      qui clv i*,nodendro nobiplot method(polychoric)
+      di "." _c
+      local group:word 1 of `r(bestthresold)'
+      local group2:word 2 of `r(bestthresold)'
+      qui clv,nodendro nobiplot cons(`group')
+      di "."
+      matrix tmp=r(affect)
+      matrix resultpoly[`i',1]=tmp
+      di "." _c
+      qui clv,nodendro nobiplot cons(`group2')
+      di "."
+      matrix tmp=r(affect)
+      matrix resultpoly2[`i',1]=tmp
+   
+      drop _all
+      svmat result
+      save "C:\Documents and Settings\Jean-Benoit\Mes documents\THESE\clv\simul (rho=`rho')\result",replace
+   
+      drop _all
+      svmat resultpoly
+      save "C:\Documents and Settings\Jean-Benoit\Mes documents\THESE\clv\simul (rho=`rho')\resultpoly",replace
+   
+      drop _all
+      svmat result2
+      save "C:\Documents and Settings\Jean-Benoit\Mes documents\THESE\clv\simul (rho=`rho')\result2",replace
+   
+      drop _all
+      svmat resultpoly2
+      save "C:\Documents and Settings\Jean-Benoit\Mes documents\THESE\clv\simul (rho=`rho')\resultpoly2",replace
+   
+   }
+}
+foreach file in "result" "result2" "resultpoly" "resultpoly2" "result2nd" "result2nd2" {
+   drop _all
+   di "`file'"
+   use "C:\Documents and Settings\Jean-Benoit\Mes documents\THESE\clv\simul (rho=`rho')\\`file'",clear
+   quietly {
+      forvalues i=1/7 {
+         rename `file'`i' itemA`i'
+         rename `file'`=`i'+7' itemB`i'
+      }
+      gen conc=0
+      gen dis=0
+      forvalues i=1/7 {
+         forvalues j=`=`i'+1'/7 {
+            replace conc=conc+1 if itemA`i'==itemA`j'
+            replace conc=conc+1 if itemB`i'==itemB`j'
+         }
+      }
+      forvalues i=1/7 {
+         forvalues j=1/7 {
+            replace dis=dis+1 if itemA`i'==itemB`j'
+         }
+      }
+      gen result=.
+      replace result=1 if conc==42&dis==0&result==.
+      replace result=3 if conc<42&dis==0&result==.
+      replace result=4 if dis>0&conc>0&result==.
+      replace result=5 if dis==49&result==.
+      egen nbcl=rowmax(item*)
+   }
+   if "`file'"=="result" {
+      local text="CLV Classique"
+   }
+   if "`file'"=="result2" {
+      local text="CLV Classique 2e choix"
+   }
+   if "`file'"=="resultpoly" {
+      local text="CLV Polychoric"
+   }
+   if "`file'"=="resultpoly2" {
+      local text="CLV Polychoric 2e choix"
+   }
+   if "`file'"=="result2nd" {
+      local text="CLV 2nd ordre "
+   }
+   if "`file'"=="result2nd2" {
+      local text="CLV 2nd ordre 2e choix"
+   }
+   di in gr "`text'"
+   tab result 
+}
+
+end