data("dks")
p.value <- dksPerm(eset, 1, samples=25)
# this is not nearly enough samples, but will suffice for
# the demonstration. See the vignette for more informative
# example.
p.value(250)
p.value(1500)
Run the code above in your browser using DataLab