PCM with DIF for n=50 done

RProject/.Rhistory

@@ -1,22 +1,3 @@
-lines(unique(plot.dat[plot.dat$scenario %in% c("3B",'3D'),]$N),
-unique(plot.dat[plot.dat$scenario %in% c("3B",'3D'),]$theoretical.power),col='#a12471',lty=4)
-lines(unique(plot.dat[plot.dat$scenario %in% c("4B",'4D'),]$N),
-unique(plot.dat[plot.dat$scenario %in% c("4B",'4D'),]$theoretical.power),col='#a12471',lty=4)
-lines(unique(plot.dat[plot.dat$scenario %in% c("1C",'1E'),]$N),
-unique(plot.dat[plot.dat$scenario %in% c("1C",'1E'),]$theoretical.power),col='#9b6541',lty=4)
-lines(unique(plot.dat[plot.dat$scenario %in% c("2C",'2E'),]$N),
-unique(plot.dat[plot.dat$scenario %in% c("2C",'2E'),]$theoretical.power),col='#9b6541',lty=4)
-lines(unique(plot.dat[plot.dat$scenario %in% c("3C",'3E'),]$N),
-unique(plot.dat[plot.dat$scenario %in% c("3C",'3E'),]$theoretical.power),col='#1a342b',lty=4)
-lines(unique(plot.dat[plot.dat$scenario %in% c("4C",'4E'),]$N),
-unique(plot.dat[plot.dat$scenario %in% c("4C",'4E'),]$theoretical.power),col='#1a342b',lty=4)
-points(unique(plot.dat[plot.dat$scenario %in% c("1A",'1A'),]$N),
-rep(unique(plot.dat[plot.dat$scenario %in% c("1A",'1A'),]$theoretical.power),3),col='#03a18a',pch=17)
-points(unique(plot.dat[plot.dat$scenario %in% c("1B",'1D'),]$N),
-unique(plot.dat[plot.dat$scenario %in% c("1B",'1D'),]$theoretical.power),col='#c0c23b',pch=17)
-points(unique(plot.dat[plot.dat$scenario %in% c("2B",'2D'),]$N),
-unique(plot.dat[plot.dat$scenario %in% c("2B",'2D'),]$theoretical.power),col='#c0c23b',pch=17)
-points(unique(plot.dat[plot.dat$scenario %in% c("3B",'3D'),]$N),
 unique(plot.dat[plot.dat$scenario %in% c("3B",'3D'),]$theoretical.power),col='#a12471',pch=17)
 points(unique(plot.dat[plot.dat$scenario %in% c("4B",'4D'),]$N),
 unique(plot.dat[plot.dat$scenario %in% c("4B",'4D'),]$theoretical.power),col='#a12471',pch=17)
@@ -510,3 +491,22 @@ mean(aaaa$dif2_3,na.rm = T)
 mean(aaaa$dif1_3,na.rm = T)
 mean(aaaa$dif1_1,na.rm = T)
 aaaa
+aaaa <- read_excel("/home/corentin/Documents/These/Recherche/Simulations/Analysis/DIF/N50/out/10A_50.xls")
+library(TAM)
+library(doMC)
+library(parallel)
+library(pbmcapply)
+library(funprog)
+library(dplyr)
+library(readxl)
+aaaa <- read_excel("/home/corentin/Documents/These/Recherche/Simulations/Analysis/DIF/N50/out/10A_50.xls")
+mean(aaaa$item1_3,na.rm = T)
+mean(aaaa$item2_3,na.rm = T)
+mean(aaaa$item3_3,na.rm = T)
+mean(aaaa$item4_3,na.rm = T)
+mean(aaaa$item4_2,na.rm = T)
+mean(aaaa$item1_2,na.rm = T)
+mean(aaaa$item1_1,na.rm = T)
+mean(aaaa$item1_2,na.rm = T)-mean(aaaa$item1_1,na.rm = T)
+mean(aaaa$item1_3,na.rm = T)-mean(aaaa$item1_2,na.rm = T)
+mean(aaaa$item4_3,na.rm = T)-mean(aaaa$item4_2,na.rm = T)