## Not run:
# data(iris)
#
# irisClass <- iris[,5]
# irisData <- iris[,-5]
#
# ens <- cfBuild(irisData, irisClass, bootNum = 100, ensNum = 100, parallel = TRUE,
# cpus = 4, type = "SOCK")
#
# # Execute 5 permutation rounds; in each permutation test, an ensemble of 20 classifiers
# # is constructed, each running 10 bootstrap iterations during the optimization process
# # The default values for permutation testing are ensNum = bootNum = permNum = 100
#
# permObj <- cfPermute(irisData, irisClass, bootNum = 10, ensNum = 20, permNum = 5, parallel = TRUE,
# cpus = 4, type = "SOCK")
#
# # List of attributes for each permutation
# attributes(permObj)
#
# # Get the vector of averaged accuracies, one for each permutation
# # (each permutation is an independent classification ensemble)
# permObj$avgAcc
#
# # Get the overall elapsed time for the permutation process
# permObj$totalTime[3]
#
# # Get the vector of individual execution times for each permutation
# permObj$execTime
#
# # Access the first ensemble in the permutation list
# permObj$permList[[1]]
# ## End(Not run)
Run the code above in your browser using DataLab