updated authorship

Author: timcadman

R/corDS.R

@@ -16,6 +16,7 @@
 #' by the 'nfilter.glm'). The second disclosure control checks that none of them is dichotomous with a
 #' level having fewer counts than the pre-specified 'nfilter.tab' threshold.
 #' @author Paul Burton, and Demetris Avraam for DataSHIELD Development Team
+#' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #' @export
 #'
 corDS <- function(x=NULL, y=NULL){

R/corTestDS.R

@@ -13,6 +13,7 @@
 #' 4 complete pairs of observations.
 #' @return the results of the correlation test.
 #' @author Demetris Avraam, for DataSHIELD Development Team
+#' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #' @export
 #'
 corTestDS <- function(x, y, method, exact, conf.level){

R/covDS.R

@@ -23,6 +23,7 @@
 #' counts than the pre-specified 'nfilter.tab' threshold. If any of the input variables do not pass the disclosure
 #' controls then all the output values are replaced with NAs.
 #' @author Amadou Gaye, Paul Burton, and Demetris Avraam for DataSHIELD Development Team
+#' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #' @export
 #'
 covDS <- function(x=NULL, y=NULL, use=NULL){

R/kurtosisDS1.R

@@ -9,6 +9,7 @@
 #' @return a list including the kurtosis of the input numeric variable, the number of valid observations and
 #' the study-side validity message.
 #' @author Demetris Avraam, for DataSHIELD Development Team
+#' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #' @export
 #'
 kurtosisDS1 <- function (x, method){

R/kurtosisDS2.R

@@ -13,6 +13,7 @@
 #' indicating indicating a valid analysis if the number of valid observations are above the protection filter 
 #' nfilter.tab or invalid analysis otherwise.
 #' @author Demetris Avraam, for DataSHIELD Development Team
+#' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #' @export
 #' 
 kurtosisDS2 <- function(x, global.mean){

R/meanDS.R

@@ -6,6 +6,7 @@
 #' @param x a character string, the name of a numeric or integer vector
 #' @return a numeric, the statistical mean
 #' @author Gaye A, Burton PR
+#' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #' @export
 #'
 meanDS <- function(x){

R/meanSdGpDS.R

@@ -8,6 +8,7 @@
 #' @param index a client-side supplied character string identifying the factor across
 #' which means/SDs are to be calculated
 #' @author Burton PR
+#' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #'
 #' @return List with results from the group statistics
 #' @export

R/quantileMeanDS.R

@@ -6,6 +6,7 @@
 #' @return a numeric vector that represents the sample quantiles
 #' @export
 #' @author Burton, P.; Gaye, A.
+#' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #'
 quantileMeanDS <- function (x) {
 

R/skewnessDS1.R

@@ -9,6 +9,7 @@
 #' @return a list including the skewness of the input numeric variable, the number of valid observations and
 #' the study-side validity message.
 #' @author Demetris Avraam, for DataSHIELD Development Team
+#' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #' @export
 #' 
 skewnessDS1 <- function(x, method){

R/skewnessDS2.R

@@ -13,6 +13,7 @@
 #' indicating indicating a valid analysis if the number of valid observations are above the protection filter 
 #' nfilter.tab or invalid analysis otherwise.
 #' @author Demetris Avraam, for DataSHIELD Development Team
+#' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #' @export
 #' 
 skewnessDS2 <- function(x, global.mean){