all.correlations<-function(input){
  output<-as.data.frame(matrix(nrow=(ncol(input)^2), ncol=20));
  names(output)<-c("Variable 1", "Variable 2", "Pearson 2 Tailed", "p-value", "Pearson Lower Tailed", "p-value", "Pearson Upper Tailed", "p-value", "Pearson 2 Tailed", "p-value", "Pearson Lower Tailed", "p-value", "Pearson Upper Tailed", "p-value", "Kendall 2 Tailed", "p-value", "Kendall Lower Tailed", "p-value", "Kendall Upper Tailed", "p-value");
  StoreRow<-0;
  for(i in 1:ncol(input)){
    for(j in 1:ncol(input)){
      StoreRow<-(StoreRow+1);
      output[StoreRow,1]<-dput(names(input)[i]);
      output[StoreRow,2]<-dput(names(input)[j]);
      output[StoreRow,3]<-cor.test(input[,i],input[,j],method="pearson",alternative="two.sided")$estimate;
      output[StoreRow,4]<-cor.test(input[,i],input[,j],method="pearson",alternative="two.sided")$p.value;
      output[StoreRow,5]<-cor.test(input[,i],input[,j],method="pearson",alternative="less")$estimate;
      output[StoreRow,6]<-cor.test(input[,i],input[,j],method="pearson",alternative="less")$p.value;
      output[StoreRow,7]<-cor.test(input[,i],input[,j],method="pearson",alternative="greater")$estimate;
      output[StoreRow,8]<-cor.test(input[,i],input[,j],method="pearson",alternative="greater")$p.value;
      output[StoreRow,9]<-cor.test(input[,i],input[,j],method="spearman",alternative="two.sided")$estimate;
      output[StoreRow,10]<-cor.test(input[,i],input[,j],method="spearman",alternative="two.sided")$p.value;
      output[StoreRow,11]<-cor.test(input[,i],input[,j],method="spearman",alternative="less")$estimate;
      output[StoreRow,12]<-cor.test(input[,i],input[,j],method="spearman",alternative="less")$p.value;
      output[StoreRow,13]<-cor.test(input[,i],input[,j],method="spearman",alternative="greater")$estimate;
      output[StoreRow,14]<-cor.test(input[,i],input[,j],method="spearman",alternative="greater")$p.value;
      output[StoreRow,15]<-cor.test(input[,i],input[,j],method="kendall",alternative="two.sided")$estimate;
      output[StoreRow,16]<-cor.test(input[,i],input[,j],method="kendall",alternative="two.sided")$p.value;
      output[StoreRow,17]<-cor.test(input[,i],input[,j],method="kendall",alternative="less")$estimate;
      output[StoreRow,18]<-cor.test(input[,i],input[,j],method="kendall",alternative="less")$p.value;
      output[StoreRow,19]<-cor.test(input[,i],input[,j],method="kendall",alternative="greater")$estimate;
      output[StoreRow,20]<-cor.test(input[,i],input[,j],method="kendall",alternative="greater")$p.value;
    }
  }
  return(output)
}