pipeline in R to get shared pi: some modifications to multiseq