skewness math test in process

Author: Leire Abarrategui Martinez

.Rd2pdf14688/Rd2.tex

@@ -0,0 +1,12 @@
+\documentclass[a4paper]{book}
+\usepackage[times,inconsolata,hyper]{Rd}
+\usepackage{makeidx}
+\usepackage[latin1]{inputenc} % @SET ENCODING@
+% \usepackage{graphicx} % @USE GRAPHICX@
+\makeindex{}
+\begin{document}
+\chapter*{}
+\begin{center}
+{\textbf{\huge \R{} documentation}} \par\bigskip{{\Large of \file{ds.skewness.Rd}}}
+\par\bigskip{\large \today}
+\end{center}

.Rd2pdf7124/Rd2.tex

@@ -0,0 +1,12 @@
+\documentclass[a4paper]{book}
+\usepackage[times,inconsolata,hyper]{Rd}
+\usepackage{makeidx}
+\usepackage[latin1]{inputenc} % @SET ENCODING@
+% \usepackage{graphicx} % @USE GRAPHICX@
+\makeindex{}
+\begin{document}
+\chapter*{}
+\begin{center}
+{\textbf{\huge \R{} documentation}} \par\bigskip{{\Large of \file{skewness.Rd}}}
+\par\bigskip{\large \today}
+\end{center}

man/.Rd2pdf7520/Rd2.tex

@@ -0,0 +1,12 @@
+\documentclass[a4paper]{book}
+\usepackage[times,inconsolata,hyper]{Rd}
+\usepackage{makeidx}
+\usepackage[latin1]{inputenc} % @SET ENCODING@
+% \usepackage{graphicx} % @USE GRAPHICX@
+\makeindex{}
+\begin{document}
+\chapter*{}
+\begin{center}
+{\textbf{\huge \R{} documentation}} \par\bigskip{{\Large of \file{skewness.Rd}}}
+\par\bigskip{\large \today}
+\end{center}

tests/testthat/definition_tests/def-ds.skewness.R

@@ -28,3 +28,19 @@
   expect_equal(skewness.server.3, skewness.local.3, tolerance = ds.test_env$tolerance)
 }
 
+.test.skewness.mean.median.mode.combined<-function(variable.name,method)
+{
+  #There are not DataSHIELD functions to calculate the median and mode.
+  #We need danger function
+  library(dsDangerClient)
+  
+  skewness.server <- ds.skewness(x = variable.name, method = method, type = "combine")
+
+  server.variable<-ds.DANGERprint(variable.name)
+  server.variable<-c(server.variable$study1,server.variable$study2,server.variable$study3)
+  
+  server.mean<-ds.mean(x = variable.name, type = "combine")
+  server.median<-median(server.variable)
+  server.mode<-DescTools::Mode(server.variable)
+  
+}

tests/testthat/test-math-ds.skewness.R

@@ -0,0 +1,2 @@
+source("connection_to_datasets/init_testing_datasets.R")
+source("definition_tests/def-ds.skewness.R")