## Not run:
# data(iris)
#
# irisClass <- iris[,5]
# irisData <- iris[,-5]
#
# permObj <- cfPermute(irisData, irisClass, bootNum = 10, ensNum = 20, permNum = 5,
# parallel = TRUE, cpus = 4, type = "SOCK")
#
# # Basic histogram of the averaged test accuracies during permutation
# ggPermHist(permObj)
#
# # Density plot
# ggPermHist(permObj, density=TRUE)
#
# # Density plot that highlights additional descriptive statistics
# ggPermHist(permObj, density=TRUE, percentiles = TRUE, mean = TRUE)
# ggPermHist(permObj, density=TRUE, percentiles = TRUE, median = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab