corentinchoisy/simul_these
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Generated data copy for RESALI analysis

Browse Source
This commit is contained in:
Corentin Choisy
2024-04-17 16:38:32 +02:00
parent 5cb862072c
commit 1efe30e6e3
2 changed files with 88 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
RProject/.Rhistory
View File

@ -1,7 +1,3 @@
}
## create design matrix for covariate part
if(m>=1){
designX <- -get_designX(X, DSF, m, I, q, n)
## create penalization matrix
acoefs <- get_acoefs(RSM, DSF, m, I, q, n_sigma)
## update number of parameters to be optimized
@ -510,3 +506,7 @@ GPCMlasso(formula=cbind(item1,item2,item3,item4)~TT,data=aaaa,model="GPCM",contr
GPCMlasso(formula=cbind(item1,item2,item3,item4)~TT,data=aaaa,model="GPCM",control = ctrl_GPCMlasso(lambda = 10000000,adaptive=F),DSF = F,cv=F)
GPCMlasso(formula=cbind(item1,item2,item3,item4)~TT,data=aaaa,model="GRSM",control = ctrl_GPCMlasso(lambda = 10000,adaptive=F),DSF = F,cv=F)
tam.mml(aaaa[,c("item1","item2","item3",'item4')],group=aaaa$TT)
wwwwww <- read.csv('/home/corentin/Documents/These/Recherche/Simulations/Analysis/RESALI/Detection_data/3A_200.csv')
table(wwwwww$dif.detect.1)
table(wwwwww$dif.detect.1)/400
sum(table(wwwwww$dif.detect.1)/400)