#' Correlations to R
#'
#' Converts SPSS correlations routine syntax to R correlation syntax
#'
#' Generates a correlation matrix for the variables.
#'
#' @param x SPSS syntax - read in by SPSStoR function
#' @param dplyr A value of TRUE uses dplyr syntax (default),
#' a value of FALSE uses data.table syntax
#' @param ... Additional arguments passed to function, not currently supported.
#' @export
correlations_to_r <- function(x, dplyr = TRUE, ...){
varsLoc <- grep("variables\\s?=", x, ignore.case = TRUE)
vars <- substr(x[varsLoc], (which(strsplit(x[varsLoc], '')[[1]]=='=')+1), nchar(x[varsLoc]))
corVars <- paste(unlist(strsplit(gsub("^\\s+|\\s+$", "", vars), " ")), collapse = ", ")
if(length(grep("\\/missing\\s?=\\s?pairwise", x, ignore.case = TRUE)) == 1){
missing <- "use = pairwise.complete.obs"
} else {
missing <- "use = na.or.complete"
}
finMat <- matrix(nrow = 1, ncol = 1)
finMat[1] <- paste("with(x, cor(cbind(", corVars, ")),", missing, ")", sep = "")
finMat
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.