version 0.6.6

DESCRIPTION

@@ -1,18 +1,19 @@
 Package: RcmdrPlugin.pointG
 Type: Package
-Title: Rcmdr Graphical POINT of view for questionnaire data Plug-In
-Version: 0.2.1
-Date: 2012-02-14
+Title: Graphical POINT of view for questionnaire data Rcmdr Plug-In
+Version: 0.6.6
+Date: 2014-02-14
 Author: Stephane Champely <champely@univ-lyon1.fr>
 Maintainer: Stephane Champely <champely@univ-lyon1.fr>
-Depends: Rcmdr (>= 1.4-0), tcltk, MASS, lattice, qgraph, VIM, maps,
-        YaleToolkit, ade4, effects, RColorBrewer,Hmisc, car
-Suggests: rgl
-Description: This package provides an Rcmdr "plug-in" to analyze
-        questionnaire data.
+Depends: tcltk, Rcmdr, RColorBrewer
+Suggests: YaleToolkit, MASS, lattice, qgraph, maps, ade4, effects,
+        abind, nnet, vcd, car, gpairs, Hmisc
+Description: This package provides a Rcmdr "plug-in" to analyze questionnaire data.
 License: GPL (>= 2)
-Models:
+LazyLoad: yes
+LazyData: Yes
 Encoding: latin1
+Packaged: 2014-02-17 10:27:18 UTC; champely
+NeedsCompilation: no
 Repository: CRAN
-Date/Publication: 2012-02-17 07:38:35
-Packaged: 2012-02-17 04:51:05 UTC; champely
+Date/Publication: 2014-02-17 12:12:35

MD5

@@ -1,62 +1,81 @@
-4d706c4521a9bfd90b0098715dd4b810 *DESCRIPTION
-d4e1af89117d75f5cad576e7c52ef058 *NAMESPACE
-c629de84a492232e855e2d1c03e68f7a *R/RcmdrPlugin.pointG.R
-1074a0aad9b5e00192c8844e42e1d496 *R/Summarydf0.R
-14de18f8d03ec4f6889e63b720995162 *R/Summaryfactor0.R
+43d82a7c5060eb6344eb26927164ac62 *DESCRIPTION
+99001b528cde13256f68ba01d9b5f629 *NAMESPACE
+5d7d8eb449294095876f39e545a69007 *R/RcmdrPlugin.pointG.R
+7643f603a87f7d88516109d72758bd6d *R/Summarydf0.R
+1e4b98393f9b3970855bfe95e7f4c969 *R/Summaryfactor0.R
 f436c39558149b867315a96b2e7439aa *R/Summarynumeric0.R
-13fc0aca1de77d83990f742314638a01 *R/Summaryordered0.R
-0bf0fe4bcd97e73c13a9918237996e4f *R/Summaryvariable0.R
-67535abe1894a2b0c66e6eca48df671d *R/Yule1.R
-f7bab738d371bd97bf953208beb80c1e *R/Yule2.R
-e85366bfcec031a78ee6a3404c1c7af2 *R/Yule3.R
-880a4fe2e718c1144c4dd1300df3903c *R/Yule4.R
-76cdba3148b06631f941a8289b845a06 *R/aaggr0.R
-559dda68350d293bc44ebdb050132f5a *R/bbbisummarize0.R
-3dbc5d232ad216c193d4b1e8c1e7f4db *R/bbbivariate0.R
-a03d21836bc0c525cf6cfef598d44bfb *R/bbigraphe0.R
-48cd23cb6acc86a1dc2e351b0090ca27 *R/bbref0.R
-318dcbc7316d4e0bfe46276ebba7aaf8 *R/bigraphe0.R
-00bec6451913e02823686cab27dcfd3f *R/bisummarize0.R
-d48250163c597276921d2577e32f60f5 *R/bivariate0.R
-343099f3041aca1e952496a2557dc917 *R/bref.df0.R
+67d874be3dee405d7632fbcf077881ac *R/Summaryordered0.R
+17895a776db4d8ff669b506756d5c965 *R/Summaryvariable0.R
+0d6ffdb92fd1dab2ab1968a1f5ab000b *R/Yule01.R
+4d374d4f849ffd76c50ba1316d6f4c51 *R/Yule02.R
+2c676d32b435184c0eec31d85974de52 *R/Yule03.R
+761b33f67d5bf0913c2fe3092b8d10dd *R/Yule04.R
+f8148ed7ec9c4a20c4856eea3aa12f1f *R/aaggr0.R
+93094ba388c6a3cfd073e87d608537ae *R/bbbisummarize0.R
+d035bb5fcdc363d5fa8f72c26cbfa1e7 *R/bbbivariate0.R
+a96ebd54fabb00fafcbed0e53d91eab0 *R/bbigraphe0.R
+9204f833b6fd9b43a21062a6eb4e5e42 *R/bbref0.R
+87791b069cdc3d407a18384416e177e3 *R/bigraphe0.R
+6950a0c99d6e827e0b92f307099f8f1d *R/bisummarize0.R
+2eca0c870d239823c0fb4080c129ee50 *R/bivariate0.R
+863f9f6f7435e1ef83d6bed7030b4951 *R/bref.df0.R
 aba2a707969373d03ae7b7621bf9b43e *R/bref.variable0.R
-3a958e3f2e887430df615d794a919def *R/cadrage0.R
-a82965e46b78a2088aa751744fbfbed0 *R/cchalandise.DEP0.R
-fbb7aea2899a7da5ae49cb68a357a184 *R/ccroise0.R
-9b6d70ef5de17ea51da1bedf6b0b76ad *R/chalandise.DEP0.R
-0bbc2b587bee105d3a7dcd7e15d7ba5e *R/histbackback0.R
+028b9809e7bc8a1b4a4519e84362d7ec *R/cadrage0.R
+5edca2ee180b9d473ba495f1f3bc1d1b *R/cchalandise.DEP0.R
+dc664afeca31e3ab6474333279aeeaa1 *R/ccroise0.R
+2520018cdf326f782ba0d7945c67e620 *R/chalandise.DEP0.R
+be19279e943f848922a83aec16a68a8b *R/cohenW.R
+e27275787d697a34376171b68f9ce9ac *R/cramerV.R
+77a4a24075dfc42d8a584d55a85f867c *R/effectPlotsTRUE.R
+b94f8be9b10f7e7fdd0e7a6d80949271 *R/enConstruction.R
+81120ffa1128c4ff7a2352fe43e90c86 *R/globals.R
+f1fbb866c24e80e423f402bdfe0c1bb4 *R/histbackback0.R
 4c9697b7f810d2512a42fa90ad229f04 *R/is.binary.R
-e88d64bdc7073cde585d31b148220da9 *R/llinear0.R
-f68d610a37cf2eeff94d75193b8646f6 *R/mmultivariate0.R
-6b37ff520e3e98e172c4df56600bff00 *R/multivariate0.R
-173204a469f54a924f38f8692434c876 *R/nettoyage0.R
+466cc8c3b1d3eada233096262222cea4 *R/llinear0.R
+fd26b9b7716adf35126519e635f01b7c *R/localYule.R
+a69cf64ba065d1e9d90fed7738df0a91 *R/mapAFC.R
+3961c65a32d489842463b964923250cb *R/mmultivariate0.R
+bb5110655afc893b085d1d09a6ffef16 *R/multivariate0.R
+33dac71d3a0c6100377e7456257f886a *R/nettoyage0.R
 9111a345b15ae2d20bb6aec6576b5968 *R/pem.R
-2f4954b9957d9a718968134a9a282ab1 *R/plotCat2.R
-3b0e96fad6b9bbf855eee1d3f1ff616d *R/plotLikert0.R
-e8a0f13f794384a7e9ba0a8b72b01491 *R/plotNum.R
+c8292d38464cbeefb36653eb5c6c90b5 *R/plotCat2.R
+e06fd2bf16e25aa6b97567e2b4d8aeb3 *R/plotLikert0.R
+6b697584a182135f5bb121d3beda79bc *R/plotLikert1.R
+5f9260d4d0a4ad3220ff3956aca95572 *R/plotMissing.R
+1a5cafb107744ade508746f4da569856 *R/plotNum.R
 57d5f966e480f58e4297794c177a596d *R/plotTabCont0.R
-99fc6b5d2b3410a72117e9b68f1641c9 *R/ppplotLikert0.R
-6ad0bc5c22c0ea05feb3b7632ab1a19c *R/ppyramide0.R
+35be9b82216cc874e4c86b2de91a22cf *R/pplotLikert0.R
+53babc150e79e33cfdad4b47c78a6826 *R/pplotLikert1.R
+f05343d0bb2c68f8fe91517558e002b4 *R/ppyramide0.R
 55caac1536eab769a5facbc987016127 *R/pyramide0.R
-525a8144cb55c40119fc0b50457a1797 *R/sSummarydf0.R
-a8feb37ef6389c691d7f657279d51d1e *R/twoWayTable0.R
-b07abd412ca7b4f6582a2d49f0e1d661 *R/univariate0.R
-ea324ffa73be7c111518e3d4dd89f595 *R/uunivariate0.R
-8fc67f7e2554c8135576d3d41713651e *RcmdrPlugin.pointG-Ex.R
-21c714d381c58958c047d0943b892ea9 *data/VIH.rda
+d48abebb9a4726812cada5a97d9fac3f *R/sSummarydf0.R
+122a181b97f4912dd3567d572ac6cb1c *R/sortAnova.R
+b6ad689366deaa877c7035bef459f52f *R/statLikert0.R
+b0395ba272a95ff7517cb8a7df8051eb *R/statLikert1.R
+179831c14ebcdb67be142b0b616c4e0d *R/statMissing.R
+c6ded8bcdf7b37adab3f867cdde545d6 *R/tauK.R
+1590d694babaa34795e4d76302edd119 *R/twoWayTable0.R
+916f5bb7adde4948600793ab06717f87 *R/univariate0.R
+e33a91a27006434ec492c812ae10b863 *R/uunivariate0.R
+6bc1203d17f6466bbcb1408b652bc288 *R/vpAFC.R
+b062b948ca5f17f4b66355267905e804 *R/yyule0.R
+4aa2834e09933f36288a0d6218904ae1 *data/VIH.rda
 5e90e8fef1ecefbf05916e87055089f1 *data/XY.DEP.rda
 425a640f428876ac1a26540498a29510 *inst/CHANGES
-b3850a73e9de573fdea629adcd0ea284 *inst/doc/ModeEmploi_pointG_0.1.pdf
-8b197392b5fe7a1c40815b4a03dca73a *inst/etc/menus.txt
-9a948c3302e0e6a5daa4896483988c7a *man/RcmdrPlugin.pointG-internal.Rd
-c5f94a78e7c1f55f295dbd4d2e0ed40f *man/RcmdrPlugin.pointG-package.Rd
-cafb7b8b36073fec20518a84b38271cc *man/VIH.Rd
+e7c65226386a83bfd5a7e2a74b9372de *inst/etc/menus.txt
+1f80dbed00d095159795d9e59c690f45 *man/RcmdrPlugin.pointG-internal.Rd
+8c7a8d6278a96f8765fec5d4a9f919ec *man/RcmdrPlugin.pointG-package.Rd
+d80d2151ed46effb708e4adfe049d909 *man/Summaryvariable0.Rd
+755030e2f86901a55e6d6c8821b72068 *man/VIH.Rd
 e57e130b1df0d7ebace2e479c3ebeaed *man/XY.DEP.Rd
-dad7edcfc19e0c4194a1e2909916a70d *man/bisummarize0.Rd
-ac9bd4a1ed4f224ee139f91c4b3defcb *man/bivariate0.Rd
+d97d7a1d066b62a4f088f0e7f9423c69 *man/Yule03.Rd
+1ab6907319ed15a32683a64b13abbc97 *man/bisummarize0.Rd
+54fae8042bbf2be9f986859d88ce1c7c *man/bivariate0.Rd
+870d99049b8320e33e0e7430bdfc44b5 *man/bref.variable0.Rd
 e098c0d947c0d8fc5c78183c30a9b7ed *man/is.binary.Rd
-795bee8f99275872e658f519c0cd6aa6 *man/multivariate0.Rd
+60bd01d2b7193569e1276ab508dd4777 *man/llinear0.Rd
+ce27a08d759eb0e6fd310286c5ae9c5c *man/multivariate0.Rd
 a2814a5cf7c81d0278cd6529f2f1a69f *man/plotCat2.Rd
-e586a45e9975e301c4d00cc975a4ca1e *man/plotLikert0.Rd
+9d5f37579e0929fb3fb5788561e47c24 *man/plotLikert0.Rd
 a6f107f671b880ae9bb277f47b88fc36 *man/plotNum.Rd
-95e13627db6dfefb9dd98e31d35a9f3b *man/univariate0.Rd
+fdd7d2fbaebeecabcc3fe443f430e8c2 *man/univariate0.Rd

NAMESPACE

@@ -1,22 +1,12 @@
 # Default NAMESPACE created by R
 # Remove the previous line if you edit this file
 
+
 # Export all names
 exportPattern(".")
 
 # Import all packages listed as Imports or Depends
-import(
-  Rcmdr,
-  tcltk,
-  MASS,
-  lattice,
-  qgraph,
-  VIM,
-  maps,
-  YaleToolkit,
-  ade4,
-  effects,
-  RColorBrewer,
-  Hmisc,
-  car
-)
+import(Rcmdr,RColorBrewer)
+
+importFrom(tcltk, tkfont.create, ttkprogressbar, tkwidget, setTkProgressBar)
+

R/RcmdrPlugin.pointG.R

@@ -6,7 +6,7 @@
 # can be included in any Rcmdr plug-in package to cause the package to load
 # the Rcmdr if it is not already loaded
 
-.First.lib <- function(libname, pkgname){
+.onAttach <- function(libname, pkgname){
     if (!interactive()) return()
     Rcmdr <- options()$Rcmdr
     plugins <- Rcmdr$plugins
@@ -15,14 +15,8 @@
         options(Rcmdr=Rcmdr)
         closeCommander(ask=FALSE, ask.save=TRUE)
         Commander()
-        }
     }
-
-
-
-
-
-
+}
 
 
 

R/Summarydf0.R

@@ -1,5 +1,6 @@
-Summarydf0<-function (object, maxsum = 7, digits = max(3, getOption("digits") - 
-    3), ...) 
+Summarydf0<-
+function (X, maxsum = 7, digits = max(3, getOption("digits") - 
+    3), pourcent=1,...) 
 {
     ncw <- function(x) {
         z <- nchar(x, type = "w")
@@ -8,9 +9,17 @@ Summarydf0<-function (object, maxsum = 7, digits = max(3, getOption("digits") -
         }
         z
     }
-    z <- lapply(as.list(object), Summaryvariable0, maxsum = maxsum,digits=digits,...)
-    nv <- length(object)
-    nm <- names(object)
+    z <- lapply(X, Summaryvariable0, maxsum = maxsum, digits = digits,pourcent=pourcent, 
+        ...)
+    nv <- ncol(X)
+    nm <- names(X)
+if(pourcent==1){
+for(j in 1:nv){
+if(is.factor(X[,j])){
+nm[j]<-paste(nm[j]," (%)",sep="")
+}
+}
+}
     lw <- numeric(nv)
     nr <- max(unlist(lapply(z, NROW)))
     for (i in 1L:nv) {

R/Summaryfactor0.R

@@ -1,7 +1,18 @@
-Summaryfactor0<-function(x,maxsum=7){
-k<-length(levels(x))
-Table<-summary(na.omit(x),maxsum=maxsum)
-if(k>maxsum){Table[1:(maxsum-1)]<-rev(sort(Table[1:(maxsum-1)]))}
-else{Table<-rev(sort(Table))}
-Table
+Summaryfactor0<-
+function (x, maxsum = 7, pourcent=1) 
+{
+    k <- length(levels(x))
+    Table <- summary(na.omit(x), maxsum = maxsum)
+    if (k > maxsum) {
+        Table[1:(maxsum - 1)] <- rev(sort(Table[1:(maxsum - 1)]))
+    }
+    else {
+        Table <- rev(sort(Table))
+    }
+    if(pourcent==0){
+return(Table)}
+else{
+Table<-round(100*Table/sum(Table))
+return(Table)
 }
+}

R/Summaryordered0.R

@@ -1,4 +1,11 @@
-Summaryordered0<-function(x,maxsum=7){
-Table<-summary(na.omit(x),maxsum=maxsum)
-Table
+Summaryordered0<-
+function (x, maxsum = 7, pourcent=1) 
+{
+    Table <- summary(na.omit(x), maxsum = maxsum)
+    if(pourcent==0){
+return(Table)}
+else{
+Table<-round(100*Table/sum(Table))
+return(Table)
 }
+}

R/Summaryvariable0.R

@@ -1,16 +1,24 @@
-Summaryvariable0<-function(x,maxsum=7,digits=max(3, getOption("digits") - 
-    3)){
-if(is.numeric(x)){ttt<-Summarynumeric0(x,digits=digits)}
-else{
-
-if(is.ordered(x)){ttt<-Summaryordered0(x,maxsum=maxsum)}
-
-else{if(is.factor(x)){ttt<-Summaryfactor0(x,maxsum=maxsum)}
-
-else{ttt<-NA}
-}
-}
-nnaa<-round(sum(is.na(x)))
-names(nnaa)<-"?"
-c(ttt,nnaa)
-}
+Summaryvariable0<-
+function (x, maxsum = 7, digits = max(3, getOption("digits") - 
+    3),pourcent=1) 
+{
+    if (is.numeric(x)) {
+        ttt <- Summarynumeric0(x, digits = digits)
+    }
+    else {
+        if (is.ordered(x)) {
+            ttt <- Summaryordered0(x, maxsum = maxsum,pourcent=pourcent)
+        }
+        else {
+            if (is.factor(x)) {
+                ttt <- Summaryfactor0(x, maxsum = maxsum,pourcent=pourcent)
+            }
+            else {
+                ttt <- NA
+            }
+        }
+    }
+    nnaa <- round(sum(is.na(x)))
+    names(nnaa) <- "? (n)"
+    c(ttt, nnaa)
+}

R/Yule1.R → R/Yule01.R

@@ -1,8 +1,6 @@
-Yule1<-
-function (df, levX, varX, varY) 
+Yule01<-
+function (X,Y, levX,nameY) 
 {
-    X <- df[, varX]
-    Y <- df[, varY]
     CT <- table(X, Y)
     sumX <- apply(CT, 1, sum)
     sumY <- apply(CT, 2, sum)
@@ -22,6 +20,6 @@ function (df, levX, varX, varY)
         result[j, 4] <- chisq.test(matrix(c(a, c, b, d), ncol = 2))$p.value
     }
     colnames(result) <- c("n", "Q", "se(Q)", "p")
-    rownames(result) <- paste(varY, levY, sep = "_")
+    rownames(result) <- paste(nameY,levY, sep = "_")
     result
 }

R/Yule2.R → R/Yule02.R

@@ -1,8 +1,9 @@
-Yule2<-
-function (df, levX, varX, varY) 
+Yule02<-
+function (X,Y,levX,nameY) 
 {
-    X <- df[, varX]
-    Y <- df[, varY]
+# calcul pour la variable Y quantitative du Q de Yule
+# La variable Y est transformée en variable binaire
+# en utilsant comme coupure la moyenne tronquée
     Ycut <- cut(Y, breaks = c(min(Y, na.rm = TRUE) - 1, mean(Y, 
         t = 0.2, na.rm = TRUE), max(Y, na.rm = TRUE)), label = c("Moins", 
         "Plus"))
@@ -25,6 +26,6 @@ function (df, levX, varX, varY)
         result[j, 4] <- chisq.test(matrix(c(a, c, b, d), ncol = 2))$p.value
     }
     colnames(result) <- c("n", "Q", "se(Q)", "p")
-    rownames(result) <- paste(varY, levY, sep = "_")
+    rownames(result) <- paste(nameY, levY, sep = "_")
     result
 }