https://nd.psychstat.org/ 2026-05-05T11:26:00+00:00 https://nd.psychstat.org/ https://nd.psychstat.org/_media/wiki/dokuwiki.svg text/html 2016-01-24T14:48:26+00:00 Anonymous (anonymous@undisclosed.example.com) https://nd.psychstat.org/lab/zhang/invariance/higer--order_invariance Higher order invariance paper with Nesselroade and Browne * R codes for histogram (2010-1-22) * R codes for QQ plot (2010-1-22) text/html 2016-01-24T14:48:26+00:00 Anonymous (anonymous@undisclosed.example.com) https://nd.psychstat.org/lab/zhang/invariance/r_codes_for_histogram_2010-1-22 ## Plot the density for the observed data plotchi<-function(rmsea, n){ filename<-paste('allres-',rmsea,'-',n,'-chi.txt', sep='') temp<-read.table(filename) temp<-temp[!is.na(temp[,3]),3] filename1<-paste(rmsea,'-',n,'.txt', sep='') write.table(temp,file=filename1,row.names=F, col.names=F) nn<-length(temp) ## now write the contral file for FPDE filename2<-paste(rmsea,'-',n,'.ctr', sep='') filename3<-paste(rmsea,'-',n,'.out', sep='') cat('filein=',filename1,';\n', file=filen…