luad=pD[["X"]]
lusc=pD[["Y"]]
posDT=pD[["posDT"]]
gain = TRUE
nullDist = NULL
threshold = NULL
numIters = 3
out=peelingTwoIterate(X=luad,Y=lusc,posDT=posDT,gain=TRUE,nullDist=NULL,threshold=NULL,numIters=3)
Run the code above in your browser using DataLab