R/part.R

`part` <-
function(ms1,ms2){

             par1<-list(setdiff(ms1,ms2))

             par2<-union(par1, list(intersect(ms1,ms2)))

             par3<-union(par2, list(setdiff(ms2,ms1)))

             par3

}

Try the BGSIMD package in your browser

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

BGSIMD documentation built on May 2, 2019, 5:12 a.m.