tests/pdclust.R

library("pdc")
 
fuzz <- 1e-6
if (abs(sum(pdclust(matrix(sin(1:1000)^2,ncol=4))$D)-0.150942) > fuzz) stop("test failed!") 

Try the pdc package in your browser

Any scripts or data that you put into this service are public.

pdc documentation built on May 2, 2019, 9 a.m.