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

misc. adjustments

Browse Source
This commit is contained in:
Corentin Choisy
2024-03-14 16:48:20 +01:00
parent e8f7bd6eb9
commit 3e68747838
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
RProject/dif.R
View File

@ -1,4 +1,4 @@
library(mirt) library(TAM)
pcm_analysis <- function(df=NULL,treatment='TT',irtmodel='PCM2',method='MML') { pcm_analysis <- function(df=NULL,treatment='TT',irtmodel='PCM2',method='MML') {
nbitems <- sum(sapply(1:20,function(x) paste0('item',x)) %in% colnames(df)) nbitems <- sum(sapply(1:20,function(x) paste0('item',x)) %in% colnames(df))
@ -15,13 +15,13 @@ pcm_analysis <- function(df=NULL,treatment='TT',irtmodel='PCM2',method='MML') {
return(tam1) return(tam1)
} }
dff <- read.csv(file = '/home/corentin/Documents/These/Recherche/Simulations/Data/DIF/N50/scenario_5A_50.csv') dff <- read.csv(file = '/home/corentin/Documents/These/Recherche/Simulations/Data/DIF/N100/scenario_5A_100.csv')
dfff <- dff[dff$replication==1,] dfff <- dff[dff$replication==1,]
facets <- dfff$TT facets <- dfff$TT
dfff$item2_noTT <- NA dfff$item4_noTT <- NA
dfff$item2_TT <- NA dfff$item4_TT <- NA
dfff[dfff$TT==0,]$item2_noTT <- dfff[dfff$TT==0,"item2"] dfff[dfff$TT==0,]$item4_noTT <- dfff[dfff$TT==0,"item4"]
dfff[dfff$TT==1,]$item2_TT <- dfff[dfff$TT==1,"item2"] dfff[dfff$TT==1,]$item4_TT <- dfff[dfff$TT==1,"item4"]
mml.mod <- tam.mml(resp=dfff[,c('item1','item2_noTT','item2_TT',"item3","item4")],Y=dfff$TT,constraint='cases' mml.mod <- tam.mml(resp=dfff[,c('item1','item2',"item3","item4_noTT",'item4_TT')],Y=dfff$TT,constraint='cases'
,irtmodel = "PCM2",est.variance = T,verbose=F) ,irtmodel = "PCM2",est.variance = T,verbose=F)