inst/Profiling.R

In QCA3: Yet another package for Qualitative Comparative Analysis

## use dim(arrage) <- NULL is better than as.vector(array)
## esubSet is much faster than subSet, by a factor of 20.

library(QCA3)
library(QCA)
data(MI.15)

Rprof(NULL)
Rprof()
ans1 <- reduce(MI.15,"OUT",LETTERS[1:14],remaind="include")
summaryRprof()
Rprof(NULL)

system.time(reduce(MI.15,"OUT",LETTERS[1:12],remaind="include"))
system.time(eqmcc(MI.15,"OUT",LETTERS[1:12],expl.1=T,incl.rem=T))

## test esubSet() 
im <- c(1,NA,NA,0)
nlevels <- c(3,2,2,2)
x1 <- QCA3:::esubSet(im,F,nlevels=nlevels)
x2 <- QCA3:::subSet(im,F,nlevels=nlevels)
identical(x1,x2)

##superSet is slower by a factor of 2
#system.time(replicate(500,QCA3:::superSet(rep(1,4))))
#system.time(replicate(500,findPrimes(rep(2,4) + 1,81)))