powered by
noba(x, batch)
noba
data(autism) Xadj <- noba(x=X, batch=batch)$adj all(as.vector(Xadj)==as.vector(X))
Run the code above in your browser using DataLab