## Not run:
# data(freqsNLngm);
# n <- 1e6
#
# targets <- sample.profiles(N = 1e2,freqs = freqsNLngm)
# db <- sample.profiles(N = 1e5,freqs = freqsNLngm)
#
# precomp <- ki.precompute(type = "FS",freqs = freqsNLngm)
#
# R1 <- ki.db(x = targets,db = db,hyp.1 = "FS")
# R2 <- ki.db(x = targets,db = db,precomputed.kis = precomp) # a little faster
#
# all.equal(R1,R2)
#
# ## End(Not run)
Run the code above in your browser using DataLab