@@ -1,3 +1,5 @@ | |||
# Generated by roxygen2 (4.0.1): do not edit by hand | |||
S3method("label<-",data.frame) | |||
S3method("label<-",default) | |||
S3method(label,default) | |||
@@ -11,7 +11,7 @@ | |||
#' @param titre Titre du tableau, par defaut "Descriptif global de nom_de_la_table" | |||
#' @param variables Vecteur de noms de variables a decrire, par defaut toutes les variables contenues dans la table | |||
#' @param variables_neg Vecteur de noms de variables a exclure de la description | |||
#' @param stats Vecteur de valeurs a calculer, parmi N, \%, \%/moy, moy, \%/med, med, et, ic95, q1, med, q3. Par defaut c("N","\%/moy","et") | |||
#' @param stats Vecteur de valeurs a calculer, parmi N, \%, \%/moy, moy, \%/med, med, et, ic95, Q1, med, Q3, min et max. Par defaut c("N","\%/moy","et") | |||
#' @param miss Booleen : afficher ou non les valeurs manquantes, par defaut TRUE | |||
#' @param note Note de bas de page, par defaut vide | |||
#' @param nbdec Nombre de decimales apres la virgule, par defaut 1 | |||
@@ -100,8 +100,8 @@ desc_global <- function(table, html="desc_global", titre=NULL, variables=NULL, v | |||
moy = mean(table[[var]],na.rm=T), | |||
"%/med" = , | |||
med = median(table[[var]],na.rm=T), | |||
Q1 = quantile(table[[var]], probs=.25, na.rm=T), | |||
Q3 = quantile(table[[var]], probs=.75, na.rm=T), | |||
Q1 = quantile(table[[var]], probs=.25, na.rm=T,names=F,type=3), | |||
Q3 = quantile(table[[var]], probs=.75, na.rm=T,names=F,type=3), | |||
min = min(table[[var]],na.rm=T), | |||
max = max(table[[var]],na.rm=T), | |||
et = sd(table[[var]],na.rm=T), | |||
@@ -248,10 +248,7 @@ diagnostic <- function(table, variables=NULL, variables_neg=NULL) | |||
inc() | |||
HTML("<tr>", paste("<th>", names(summary(table[[var]])), "</th>", collapse=""), "</tr>") | |||
HTML("<tr>", sep="") | |||
for (valeur in summary(table[[var]])) | |||
{ | |||
HTML("<td>", valeur, "</td>", sep="") | |||
} | |||
HTML("<td>",summary(table[[var]]),"</td>",sep="") | |||
HTML("</tr>") | |||
dec() | |||
HTML("</table>") | |||
@@ -13,6 +13,7 @@ | |||
#' @param titre Titre du tableau, par defaut "Comparaison selon nom_de_la_variable" | |||
#' @param variables Vecteur de noms de variables a comparer, par defaut toutes les variables contenues dans la table moins celle servant de comparateur | |||
#' @param variables_neg Vecteur de noms de variables a exclure de la comparaison | |||
#' #' @param stats Vecteur de valeurs a calculer, parmi N, \%, \%/moy, moy, \%/med, med, et, ic95, Q1, med, Q3, min et max. Par defaut c("N","\%/moy","et") | |||
#' @param note Note de bas de page, par defaut vide | |||
#' @param nbdec Nombre de decimales apres la virgule, par defaut 1 | |||
#' @param pourcent Pourcentages pour les variables qualitatives, en colonnes ("col") ou en lignes ("row"), par defaut sur le total | |||
@@ -26,7 +27,7 @@ | |||
#' desc_groupe(Ma_table, "sexe", param = para, titre="Comparatif selon le sexe", pourcent="row") | |||
#' } | |||
#' @export | |||
desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NULL, variables=NULL, variables_neg=NULL, note=NULL, nbdec=1, pourcent="total") | |||
desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NULL, variables=NULL, variables_neg=NULL,stats=c("N","%/moy","et"), note=NULL, nbdec=1, pourcent="total") | |||
{ | |||
if (nbdec<2) | |||
nbdecp<-2 | |||
@@ -54,7 +55,7 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU | |||
} | |||
etiq <- label(modulo) | |||
if (etiq == "modulo") etiq <- var | |||
if (etiq == "modulo") etiq <- groupe | |||
# Creation du titre | |||
if (is.null(titre)) | |||
@@ -92,16 +93,15 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU | |||
HTML("<thead>") | |||
inc() | |||
HTML("<tr><th></th>", paste0("<th colspan='2'>",levels(modulo),"</th>", collapse=""), "<th>p</th></tr>") | |||
HTML("<tr><th></th>", paste0("<th colspan='",length(stats),"'>",levels(modulo),"</th>", collapse=""), "<th>p</th></tr>") | |||
HTML("<tr><td></td>", sep="") | |||
for (i in levels(modulo)) | |||
{ | |||
HTML("<td colspan='2'>N=", length(na.omit(modulo[modulo==i])), "</td>", sep="") | |||
} | |||
HTML("<td colspan='",length(stats),"'>N=", length(na.omit(modulo[modulo==i])), "</td>", sep="") | |||
HTML("<td></td></tr>") | |||
HTML("<tr><td></td>", paste0(rep(c("<td>N</td>","<td>%</td>"),nlevels(modulo)),collapse=""), "<td></td></tr>") | |||
HTML("<tr><td></td>", paste0(rep(paste("<td>",stats,"</td>",sep="", collapse=""),nlevels(modulo)),collapse=""), "<td></td></tr>") | |||
dec() | |||
HTML("</thead>") | |||
@@ -111,7 +111,7 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU | |||
{ | |||
HTML("<tfoot>") | |||
inc() | |||
HTML("<tr><td colspan='", nlevels(modulo)*2+2, "'>", note,"</td></tr>") | |||
HTML("<tr><td colspan='", nlevels(modulo)*length(stats)+2, "'>", note,"</td></tr>") | |||
dec() | |||
HTML("</tfoot>") | |||
} | |||
@@ -155,10 +155,35 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU | |||
} | |||
} | |||
HTML("<tr><td class='var'>", etiq, " (moy ±SD)</td>", sep="") | |||
HTML("<tr><td class='var'>", etiq, "</td>", sep="") | |||
for (level in levels(modulo)) | |||
HTML("<td>",format(mean(table[[var]][modulo==level], na.rm=T), digits=nbdec,nsmall=nbdec), "</td><td>", format(sd(table[[var]][modulo==level],na.rm=T), digits=nbdec,nsmall=nbdec), "</td>", sep="") | |||
{ | |||
for (stat in stats) | |||
{ | |||
HTML("<td>",sep="") | |||
HTML(tryCatch( | |||
{ | |||
format(switch(stat, | |||
N = length(na.omit(table[[var]][modulo==level])), | |||
"%/moy" = , | |||
moy = mean(table[[var]][modulo==level],na.rm=T), | |||
"%/med" = , | |||
med = median(table[[var]][modulo==level],na.rm=T), | |||
Q1 = quantile(table[[var]][modulo==level], probs=.25, na.rm=T,names=F,type=3), | |||
Q3 = quantile(table[[var]][modulo==level], probs=.75, na.rm=T,names=F,type=3), | |||
min = min(table[[var]][modulo==level],na.rm=T), | |||
max = max(table[[var]][modulo==level],na.rm=T), | |||
et = sd(table[[var]][modulo==level],na.rm=T), | |||
ic95 = paste0("±",format(mean(table[[var]][modulo==level],na.rm=T) - t.test(table[[var]][modulo==level])$conf.int[1], digits=nbdec,nsmall=nbdec)), | |||
... = "ERR" | |||
),digits=nbdec,nsmall=nbdec) | |||
},error = function(e){erreur(e,var,"dans le calcul de ",stat)}), sep="") | |||
HTML("</td>", sep="") | |||
} | |||
} | |||
HTML("<td>", format(p,digits=nbdecp,nsmall=nbdecp), sep="") | |||
if (!is.na(p)) | |||
@@ -181,12 +206,13 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU | |||
test <<- "f" | |||
tryCatch( | |||
{ | |||
fisher.test(table[[var]],modulo,workspace)$p.value | |||
fisher.test(table[[var]],modulo,workspace=1e+08)$p.value | |||
}, | |||
error=function(e) | |||
{ | |||
test <<- "X(f failed)" | |||
chisq.test(table[[var]],modulo)$p.value | |||
#test <<- "X(f failed)" | |||
#chisq.test(table[[var]],modulo)$p.value | |||
fisher.test(table[[var]],modulo,simulate.p.value = T,B = 1e+06)$p.value | |||
}) | |||
}, | |||
error=function(e) | |||
@@ -194,12 +220,13 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU | |||
"NA" | |||
}) | |||
HTML("<tr><td class='var' colspan='", nlevels(modulo)*2+1, "'>", etiq, "</td>", sep="") | |||
HTML("<tr><td class='var' colspan='", nlevels(modulo)*length(stats)+1, "'>", etiq, "</td>", sep="") | |||
HTML("<td>", format(p,digits=nbdecp,nsmall=nbdecp), sep="") | |||
if (!is.na(p)) | |||
if (p<.05) | |||
HTML("*", sep="") | |||
HTML(" (",test,")</td>", sep="") | |||
HTML("</tr>") | |||
# Levels de la variable qualitative | |||
for (level in levels(table[[var]])) | |||
@@ -207,11 +234,20 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU | |||
HTML("<tr><td class='level'>", level, "</td>",sep="") | |||
for (level_m in levels(modulo)) | |||
{ | |||
HTML("<td>", table(table[[var]],modulo)[level,level_m], "</td>", sep="") | |||
switch(pourcent, | |||
row = HTML("<td>", format(100*table(table[[var]],modulo)[level,level_m]/rowSums(table(table[[var]],modulo))[level], digits=nbdec, nsmall=nbdec), "</td>", sep=""), | |||
col = HTML("<td>", format(100*table(table[[var]],modulo)[level,level_m]/colSums(table(table[[var]],modulo))[level_m], digits=nbdec, nsmall=nbdec), "</td>", sep=""), | |||
total = HTML("<td>", format(100*table(table[[var]],modulo)[level,level_m]/sum(table(table[[var]],modulo)), digits=nbdec, nsmall=nbdec), "</td>", sep="")) | |||
for (stat in stats) | |||
{ | |||
HTML("<td>",sep="") | |||
if (stat == "N") | |||
HTML(table(table[[var]],modulo)[level,level_m],sep="") | |||
else if ((stat == "%") | (stat == "%/moy") | (stat == "%/med")) | |||
switch(pourcent, | |||
row = HTML(format(100*table(table[[var]],modulo)[level,level_m]/rowSums(table(table[[var]],modulo))[level], digits=nbdec, nsmall=nbdec), sep=""), | |||
col = HTML(format(100*table(table[[var]],modulo)[level,level_m]/colSums(table(table[[var]],modulo))[level_m], digits=nbdec, nsmall=nbdec), sep=""), | |||
total = HTML(format(100*table(table[[var]],modulo)[level,level_m]/sum(table(table[[var]],modulo)), digits=nbdec, nsmall=nbdec), sep="")) | |||
HTML("</td>",sep="") | |||
} | |||
} | |||
HTML("<td></td></tr>") | |||
@@ -13,6 +13,6 @@ RnwWeave: Sweave | |||
LaTeX: pdfLaTeX | |||
BuildType: Package | |||
PackageInstallArgs: --no-multiarch | |||
PackageInstallArgs: --no-multiarch --with-keep.source | |||
PackageCheckArgs: --as-cran | |||
PackageRoxygenize: rd,collate,namespace |
@@ -61,6 +61,12 @@ table.desc tbody td.level | |||
} | |||
table.desc tbody td | |||
{ | |||
text-align: center; | |||
vertical-align: bottom; | |||
} | |||
table.desc thead, td | |||
{ | |||
text-align: center; | |||
vertical-align: bottom; |
@@ -1,3 +1,4 @@ | |||
% Generated by roxygen2 (4.0.1): do not edit by hand | |||
\encoding{UTF-8} | |||
\name{HTML} | |||
\alias{HTML} | |||
@@ -6,21 +7,18 @@ | |||
HTML(x, ..., append = T, sep = "\\n") | |||
} | |||
\arguments{ | |||
\item{x}{Contenu a ecrire} | |||
\item{x}{Contenu a ecrire} | |||
\item{...}{Contenu concatene sans espace a x} | |||
\item{...}{Contenu concatene sans espace a x} | |||
\item{append}{Decide si x... doit etre ajoute a un | |||
fichier existant} | |||
\item{append}{Decide si x... doit etre ajoute a un fichier existant} | |||
\item{sep}{Separateur de fin de ligne, modifier pour | |||
ecrire sur la meme ligne du fichier} | |||
\item{sep}{Separateur de fin de ligne, modifier pour ecrire sur la meme ligne du fichier} | |||
} | |||
\description{ | |||
Ecrit dans le fichier HTML cree par HTMLInit | |||
} | |||
\details{ | |||
Ecrit dans le fichier initialise par HTMLInit dont le nom | |||
est contenu dans .HTML.file | |||
Ecrit dans le fichier initialise par HTMLInit dont le nom est contenu dans .HTML.file | |||
} | |||
@@ -1,3 +1,4 @@ | |||
% Generated by roxygen2 (4.0.1): do not edit by hand | |||
\encoding{UTF-8} | |||
\name{HTMLEnd} | |||
\alias{HTMLEnd} | |||
@@ -9,7 +10,6 @@ HTMLEnd() | |||
Ecrit le footer du fichier hTML | |||
} | |||
\details{ | |||
Ecrit le footer du fichier initialise par HTMLInit, ouvre | |||
le fichier dans le navigateur et supprime l'acces. | |||
Ecrit le footer du fichier initialise par HTMLInit, ouvre le fichier dans le navigateur et supprime l'acces. | |||
} | |||
@@ -1,3 +1,4 @@ | |||
% Generated by roxygen2 (4.0.1): do not edit by hand | |||
\encoding{UTF-8} | |||
\name{HTMLInit} | |||
\alias{HTMLInit} | |||
@@ -7,20 +8,18 @@ HTMLInit(file = tempfile(pattern = "report", fileext = ".html"), title = "", | |||
CSSfile = "") | |||
} | |||
\arguments{ | |||
\item{file}{Nom du fichier HTML a creer, par defaut un | |||
fichier temporaire} | |||
\item{file}{Nom du fichier HTML a creer, par defaut un fichier temporaire} | |||
\item{title}{Titre de la page} | |||
\item{title}{Titre de la page} | |||
\item{CSSfile}{Fichier CSS a utiliser} | |||
\item{CSSfile}{Fichier CSS a utiliser} | |||
} | |||
\description{ | |||
Cree et remplit les headers pour un fichier hTML | |||
} | |||
\details{ | |||
Si aucun nom de fichier n'est fourni, cree un fichier | |||
temporaire dans le repertoire temporaire Le nom du fichier | |||
actuel est stocke dans .HTML.file | |||
Si aucun nom de fichier n'est fourni, cree un fichier temporaire dans le repertoire temporaire | |||
Le nom du fichier actuel est stocke dans .HTML.file | |||
} | |||
\examples{ | |||
\dontrun{ | |||
@@ -1,3 +1,4 @@ | |||
% Generated by roxygen2 (4.0.1): do not edit by hand | |||
\encoding{UTF-8} | |||
\name{charger} | |||
\alias{charger} | |||
@@ -6,32 +7,24 @@ | |||
charger(fichier, feuille = 1, chemin = "../../data/") | |||
} | |||
\arguments{ | |||
\item{fichier}{Fichier de donnees a charger} | |||
\item{fichier}{Fichier de donnees a charger} | |||
\item{feuille}{Feuille a utiliser si fichier excel et en | |||
cas de feuilles mutiples (et qu'on veut acceder a une | |||
feuille au-dela de la premiere)} | |||
\item{feuille}{Feuille a utiliser si fichier excel et en cas de feuilles mutiples (et qu'on veut acceder a une feuille au-dela de la premiere)} | |||
\item{chemin}{Chemin ou trouver le fichier de donnees | |||
(par defaut ../../data/)} | |||
\item{chemin}{Chemin ou trouver le fichier de donnees (par defaut ../../data/)} | |||
} | |||
\value{ | |||
La data frame avec les labels et formats | |||
} | |||
\description{ | |||
Charge un fichier texte ou excel contenant les donnees | |||
ainsi que les formats et labels | |||
Charge un fichier texte ou excel contenant les donnees ainsi que les formats et labels | |||
} | |||
\details{ | |||
La fonction charge les donnees contenues dans le fichier de | |||
donnees et renvoie une table de valeurs. Si des | |||
labels/formats sont definis ils seront appliques (fichiers | |||
labels.sas, formats.sas et attribformats.sas) Les variables | |||
pour lesquelles un format est defini seront considerees | |||
comme des variables qualitatives. La table de valeurs prend | |||
automatiquement le nom du fichier (suffixe par le numero de | |||
feuille). Le fichier de donnees est charge depuis | |||
../../data/, les formats depuis le repertoire courant. | |||
La fonction charge les donnees contenues dans le fichier de donnees et renvoie une table de valeurs. | |||
Si des labels/formats sont definis ils seront appliques (fichiers labels.sas, formats.sas et attribformats.sas) | |||
Les variables pour lesquelles un format est defini seront considerees comme des variables qualitatives. | |||
La table de valeurs prend automatiquement le nom du fichier (suffixe par le numero de feuille). | |||
Le fichier de donnees est charge depuis ../../data/, les formats depuis le repertoire courant. | |||
} | |||
\examples{ | |||
\dontrun{Ma_table <- charger("donnees.xls", feuille=2)} | |||
@@ -1,3 +1,4 @@ | |||
% Generated by roxygen2 (4.0.1): do not edit by hand | |||
\encoding{UTF-8} | |||
\name{desc_global} | |||
\alias{desc_global} | |||
@@ -8,40 +9,31 @@ desc_global(table, html = "desc_global", titre = NULL, variables = NULL, | |||
note = NULL, nbdec = 1) | |||
} | |||
\arguments{ | |||
\item{table}{Table a utiliser} | |||
\item{table}{Table a utiliser} | |||
\item{html}{Nom du fichier html, par defaut | |||
"desc_global.html"} | |||
\item{html}{Nom du fichier html, par defaut "desc_global.html"} | |||
\item{titre}{Titre du tableau, par defaut "Descriptif | |||
global de nom_de_la_table"} | |||
\item{titre}{Titre du tableau, par defaut "Descriptif global de nom_de_la_table"} | |||
\item{variables}{Vecteur de noms de variables a decrire, | |||
par defaut toutes les variables contenues dans la table} | |||
\item{variables}{Vecteur de noms de variables a decrire, par defaut toutes les variables contenues dans la table} | |||
\item{variables_neg}{Vecteur de noms de variables a | |||
exclure de la description} | |||
\item{variables_neg}{Vecteur de noms de variables a exclure de la description} | |||
\item{stats}{Vecteur de valeurs a calculer, parmi N, \%, | |||
\%/moy, moy, \%/med, med, et, ic95, q1, med, q3. Par | |||
defaut c("N","\%/moy","et")} | |||
\item{stats}{Vecteur de valeurs a calculer, parmi N, \%, \%/moy, moy, \%/med, med, et, ic95, Q1, med, Q3, min et max. Par defaut c("N","\%/moy","et")} | |||
\item{miss}{Booleen : afficher ou non les valeurs | |||
manquantes, par defaut TRUE} | |||
\item{miss}{Booleen : afficher ou non les valeurs manquantes, par defaut TRUE} | |||
\item{note}{Note de bas de page, par defaut vide} | |||
\item{note}{Note de bas de page, par defaut vide} | |||
\item{nbdec}{Nombre de decimales apres la virgule, par | |||
defaut 1} | |||
\item{nbdec}{Nombre de decimales apres la virgule, par defaut 1} | |||
} | |||
\description{ | |||
Produit un tableau descriptif d'une table | |||
} | |||
\details{ | |||
Permet de produire un tableau descriptif des variables | |||
contenues dans la table. Si les labels et formats sont | |||
definis et charges ils seront utilises pour peupler le | |||
tableau. Le fichier de sortie est place dans ../HTML Output | |||
Permet de produire un tableau descriptif des variables contenues dans la table. | |||
Si les labels et formats sont definis et charges ils seront utilises pour peupler le tableau. | |||
Le fichier de sortie est place dans ../HTML Output | |||
} | |||
\examples{ | |||
\dontrun{ | |||
@@ -1,52 +1,44 @@ | |||
% Generated by roxygen2 (4.0.1): do not edit by hand | |||
\encoding{UTF-8} | |||
\name{desc_groupe} | |||
\alias{desc_groupe} | |||
\title{Comparatif par groupe} | |||
\usage{ | |||
desc_groupe(table, groupe, param = character(0), html = NULL, | |||
titre = NULL, variables = NULL, variables_neg = NULL, note = NULL, | |||
nbdec = 1, pourcent = "total") | |||
titre = NULL, variables = NULL, variables_neg = NULL, stats = c("N", | |||
"\%/moy", "et"), note = NULL, nbdec = 1, pourcent = "total") | |||
} | |||
\arguments{ | |||
\item{table}{Table a utiliser} | |||
\item{table}{Table a utiliser} | |||
\item{groupe}{Nom de la variable qualitative a utiliser | |||
pour la comparaison} | |||
\item{groupe}{Nom de la variable qualitative a utiliser pour la comparaison} | |||
\item{param}{Vecteur de noms de variables considerees | |||
comme parametriques} | |||
\item{param}{Vecteur de noms de variables considerees comme parametriques} | |||
\item{html}{Nom du fichier html, par defaut | |||
"desc_groupe_nomdelavariable.html"} | |||
\item{html}{Nom du fichier html, par defaut "desc_groupe_nomdelavariable.html"} | |||
\item{titre}{Titre du tableau, par defaut "Comparaison | |||
selon nom_de_la_variable"} | |||
\item{titre}{Titre du tableau, par defaut "Comparaison selon nom_de_la_variable"} | |||
\item{variables}{Vecteur de noms de variables a comparer, | |||
par defaut toutes les variables contenues dans la table | |||
moins celle servant de comparateur} | |||
\item{variables}{Vecteur de noms de variables a comparer, par defaut toutes les variables contenues dans la table moins celle servant de comparateur} | |||
\item{variables_neg}{Vecteur de noms de variables a | |||
exclure de la comparaison} | |||
\item{variables_neg}{Vecteur de noms de variables a exclure de la comparaison | |||
#'} | |||
\item{note}{Note de bas de page, par defaut vide} | |||
\item{stats}{Vecteur de valeurs a calculer, parmi N, \%, \%/moy, moy, \%/med, med, et, ic95, Q1, med, Q3, min et max. Par defaut c("N","\%/moy","et")} | |||
\item{nbdec}{Nombre de decimales apres la virgule, par | |||
defaut 1} | |||
\item{note}{Note de bas de page, par defaut vide} | |||
\item{pourcent}{Pourcentages pour les variables | |||
qualitatives, en colonnes ("col") ou en lignes ("row"), | |||
par defaut sur le total} | |||
\item{nbdec}{Nombre de decimales apres la virgule, par defaut 1} | |||
\item{pourcent}{Pourcentages pour les variables qualitatives, en colonnes ("col") ou en lignes ("row"), par defaut sur le total} | |||
} | |||
\description{ | |||
Produit un tableau comparatif par groupe | |||
} | |||
\details{ | |||
Permet de produire un tableau comparatif des variables | |||
contenues dans la table passee en parametre selon les | |||
modalites d'une d'entre elles. Si les labels et formats | |||
sont definis et charges ils seront utilises pour peupler le | |||
tableau. Le fichier de sortie est place dans ../HTML Output | |||
Permet de produire un tableau comparatif des variables contenues dans la table passee en parametre selon les modalites d'une d'entre elles. | |||
Si les labels et formats sont definis et charges ils seront utilises pour peupler le tableau. | |||
Le fichier de sortie est place dans ../HTML Output | |||
} | |||
\examples{ | |||
\dontrun{ | |||
@@ -1,3 +1,4 @@ | |||
% Generated by roxygen2 (4.0.1): do not edit by hand | |||
\encoding{UTF-8} | |||
\name{diagnostic} | |||
\alias{diagnostic} | |||
@@ -6,32 +7,23 @@ | |||
diagnostic(table, variables = NULL, variables_neg = NULL) | |||
} | |||
\arguments{ | |||
\item{table}{Table a utiliser} | |||
\item{table}{Table a utiliser} | |||
\item{variables}{Vecteur de noms de variables a decrire, | |||
par defaut toutes les variables contenues dans la table} | |||
\item{variables}{Vecteur de noms de variables a decrire, par defaut toutes les variables contenues dans la table} | |||
\item{variables_neg}{Vecteur de noms de variables a | |||
exclure de la description} | |||
\item{variables_neg}{Vecteur de noms de variables a exclure de la description} | |||
} | |||
\value{ | |||
Un vecteur contenant les variables considerees comme | |||
parametriques | |||
Un vecteur contenant les variables considerees comme parametriques | |||
} | |||
\description{ | |||
Produit un tableau descriptif de la table et des graphiques | |||
pour la verification des conditions d'utilisation des tests | |||
satistiques | |||
Produit un tableau descriptif de la table et des graphiques pour la verification des conditions d'utilisation des tests satistiques | |||
} | |||
\details{ | |||
Permet de produire un tableau descriptif des variables | |||
contenues dans la table. Si les labels et formats sont | |||
definis et charges ils seront utilises pour peupler le | |||
tableau. La fonction renvoie un vecteur de noms de | |||
variables considerees comme parametriques apres un test de | |||
normalite de Shapiro-Wilk. Le fichier est cree dans le | |||
repertoire temporaire. Il est possible de le sauvegarder | |||
avec ses graphiques a partir du navigateur. | |||
Permet de produire un tableau descriptif des variables contenues dans la table. | |||
Si les labels et formats sont definis et charges ils seront utilises pour peupler le tableau. | |||
La fonction renvoie un vecteur de noms de variables considerees comme parametriques apres un test de normalite de Shapiro-Wilk. | |||
Le fichier est cree dans le repertoire temporaire. Il est possible de le sauvegarder avec ses graphiques a partir du navigateur. | |||
} | |||
\examples{ | |||
\dontrun{ | |||
@@ -1,3 +1,4 @@ | |||
% Generated by roxygen2 (4.0.1): do not edit by hand | |||
\encoding{UTF-8} | |||
\name{label} | |||
\alias{label} | |||
@@ -18,21 +19,19 @@ label(objet) <- value | |||
\method{label}{data.frame}(objet) <- value | |||
} | |||
\arguments{ | |||
\item{objet}{L'objet a nommer} | |||
\item{objet}{L'objet a nommer} | |||
\item{value}{Le texte de l'etiquette} | |||
\item{value}{Le texte de l'etiquette} | |||
} | |||
\value{ | |||
Renvoie une chaine de caracteres contenant l'etiquette de | |||
l'objet | |||
Renvoie une chaine de caracteres contenant l'etiquette de l'objet | |||
} | |||
\description{ | |||
Attribuer ou recuperer l'etiquette d'un objet | |||
} | |||
\details{ | |||
Methode par defaut pour acceder et modifier l'etiquette | |||
d'un objet ou d'un element d'un objet. Il est possible de | |||
supprimer l'etiquette en passant NULL a la fonction. | |||
Methode par defaut pour acceder et modifier l'etiquette d'un objet ou d'un element d'un objet. | |||
Il est possible de supprimer l'etiquette en passant NULL a la fonction. | |||
} | |||
\examples{ | |||
a <- c(18,25,23,32) | |||
@@ -1,3 +1,4 @@ | |||
% Generated by roxygen2 (4.0.1): do not edit by hand | |||
\encoding{UTF-8} | |||
\name{loadFormatsFromFile} | |||
\alias{loadFormatsFromFile} | |||
@@ -6,33 +7,30 @@ | |||
loadFormatsFromFile(dataframe, file_format, file_attrib) | |||
} | |||
\arguments{ | |||
\item{dataframe}{The dataframe to which you want to | |||
assign labels} | |||
\item{dataframe}{The dataframe to which you want to assign labels} | |||
\item{file}{The flat file from which to load the label | |||
data} | |||
\item{file}{The flat file from which to load the label data} | |||
} | |||
\value{ | |||
The dataframe with label attributes | |||
} | |||
\description{ | |||
Loads factor levels from flat files and applies them to the | |||
provided dataframe | |||
Loads factor levels from flat files and applies them to the provided dataframe | |||
} | |||
\details{ | |||
This function takes a dataframe and assigns factor levels | |||
to the corresponding variables. Two files must be provided | |||
: One describing the formats to be used (permitting the | |||
re-use of a defined format), which must be formatted like | |||
so: value format_name value0_in_data_frame = 'Label for | |||
level 0' value1_in_data_frame = "Label for level 1" and so | |||
on. As shown, both single and double quotes are accepted. | |||
The value before the equal sign can be numeric (categorical | |||
coding) or text for recoding. The other file assigns | |||
defined formats to variables in the dataframe. It must be | |||
formatted like so: var1 var2 var3 varN format=format_name | |||
with one line for every assigned format. As always, be | |||
careful of the case sensitiveness. | |||
This function takes a dataframe and assigns factor levels to the corresponding variables. | |||
Two files must be provided : | |||
One describing the formats to be used (permitting the re-use of a defined format), which must be formatted like so: | |||
value format_name | |||
value0_in_data_frame = 'Label for level 0' | |||
value1_in_data_frame = "Label for level 1" | |||
and so on. | |||
As shown, both single and double quotes are accepted. | |||
The value before the equal sign can be numeric (categorical coding) or text for recoding. | |||
The other file assigns defined formats to variables in the dataframe. It must be formatted like so: | |||
var1 var2 var3 varN format=format_name | |||
with one line for every assigned format. | |||
As always, be careful of the case sensitiveness. | |||
} | |||
\examples{ | |||
\dontrun{df <- loadFormatsFromFile(df,"formats.txt","attribformats.txt")} | |||
@@ -1,3 +1,4 @@ | |||
% Generated by roxygen2 (4.0.1): do not edit by hand | |||
\encoding{UTF-8} | |||
\name{loadLabelsFromFile} | |||
\alias{loadLabelsFromFile} | |||
@@ -6,25 +7,22 @@ | |||
loadLabelsFromFile(dataframe, file) | |||
} | |||
\arguments{ | |||
\item{dataframe}{The dataframe to which you want to | |||
assign labels} | |||
\item{dataframe}{The dataframe to which you want to assign labels} | |||
\item{file}{The flat file from which to load the label | |||
data} | |||
\item{file}{The flat file from which to load the label data} | |||
} | |||
\value{ | |||
The dataframe with label attributes | |||
} | |||
\description{ | |||
Loads label values from a flat file and applies them to the | |||
provided dataframe | |||
Loads label values from a flat file and applies them to the provided dataframe | |||
} | |||
\details{ | |||
This function takes a dataframe and adds label attributes | |||
to the variables. The file must be formatted like so : | |||
variablename = "Label for the variable" with one line per | |||
variable As always, be careful of the case sensitiveness | |||
and the use of double quotes ! | |||
This function takes a dataframe and adds label attributes to the variables. | |||
The file must be formatted like so : | |||
variablename = "Label for the variable" | |||
with one line per variable | |||
As always, be careful of the case sensitiveness and the use of double quotes ! | |||
} | |||
\examples{ | |||
\dontrun{df <- loadLabelsFromFile(df,"labels.txt")} | |||