Why ukb_gen_samples_to_remove function takes forever to execute?

Question

[anamaria]

Hello,

I was running:

>library(ukbtools)
> dim(main_data)
[1] 403974   1095
> dim(data)
[1] 107124      5
> remove_fin=ukb_gen_samples_to_remove(data, main_data$eid, cutoff = 0.0884)

But ukb_gen_samples_to_remove() takes hours to execute.

I am running this with:

R version 3.6.3 (2020-02-29) -- "Holding the Windsock"
 Copyright (C) 2020 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)