if (FALSE) {
data("PFT1981")
datadea <- read_data(PFT1981, ni = 5, no = 3)
# We find maximal friends of a cluster formed by the first 20 DMUs
result <- maximal_friends(datadea = datadea,
dmu_ref = 1:20)
}
Run the code above in your browser using DataLab