# NOT RUN {
dataX <- matrix(rnorm(20), ncol=4)
rownames(dataX)<- paste("R",1:nrow(dataX),sep="")
colnames(dataX)<- paste("C",1:ncol(dataX),sep="")
tmp <- my_jackknife(dataX, cor, use="pairwise.complete.obs", method="pearson")
jackknifeMatrix(dataX, cor)
jackknifeMatrix(dataX, cor, method="spearman")
# }
Run the code above in your browser using DataLab