Importamos la data
library(rio)
## Warning: package 'rio' was built under R version 4.2.2
data4="https://github.com/aishamartinez03/Estad-stica-/raw/main/DATA%20C4.csv"
data4=import(data4)
str(data4)
## 'data.frame': 163 obs. of 4 variables:
## $ Country : chr "Afghanistan" "Albania" "Algeria" "Angola" ...
## $ safety : num 4.13 2.12 2.3 2.41 2.66 ...
## $ militarisation: num 2.47 1.67 2.04 1.71 1.61 ...
## $ conflict : num 3.65 1.4 2.07 1.67 1.2 ...
dataClus=data4[,c(2:4)]
library(cluster)
g.dist = daisy(dataClus, metric="gower")