>library(flipFormat)

>library(flipTransformations)

>dat <- ProcessQVariables(data.frame(formVariable1, formVariable2))

>for (i in 1:2)
    if (is.factor(dat[[i]]))
        dat[[i]] <- unclass(dat[[i]])

>dat$subset <- QFilter

>if (!is.null(QCalibratedWeight))
    dat <- AdjustDataToReflectWeights(dat, QCalibratedWeight)

>method <- switch(formType, "Pearson product-moment" = "pearson", "Spearman rank-order" = "spearman", "Kendall's Tau-b" = "kendall")

>cor.name <- switch(formType,
                   "Pearson product-moment" = "Pearson's product-moment correlation",
                   "Spearman rank-order" = "Spearman's rank correlation rho",
                   "Kendall's Tau-b" = "Kendall's rank correlation tau")

>alternative.hypothesis <- switch(formHypothesis, "Two-sided" = "two.sided",  "Correlation < 0" = "less",  "Correlation > 0" = "greater")

>test.output <- cor.test( ~ formVariable1 + formVariable2, data = dat, method = method, alternative = alternative.hypothesis, subset = subset, na.action = "na.omit")

>correlation.test <- if (formOutput == "Summary") {
    decimal.places <- if (formDecimals) 8 else NULL
    SignificanceTest(test.output, cor.name, list(formVariable1, formVariable2), filter = QFilter,
                     weight = QCalibratedWeight,
                     p.value.method = alternative.hypothesis,
                     show.labels = !formNames, decimal.places = decimal.places, resample = TRUE)
} else
    test.output
Started:Tue Aug 28 2018 06:59:17 GMT+0000 (Coordinated Universal Time)
Finished:Tue Aug 28 2018 06:59:17 GMT+0000 (Coordinated Universal Time)
Total time:0.54s
Time executing code:0.48s
Other overhead on R server:0.30s
Time spent transferring data:0.07s
Data sent to R server:3.5KB
Data received from R server:8.2KB