library(ade4)


# Load data from a new dataframe
df <- read.table(file = 'autos_clustering.csv', header = TRUE, sep = ';', row.names = 1)

# Computing PCA
autos_acp <- dudi.pca(df, nf = 2, scannf = FALSE, center = TRUE, scale = TRUE, row.w = rep(1, nrow(df))/nrow(df), col.w = rep(1, ncol(df)))

# Computing Label plot
s.label(autos_acp$li, xax = 1, yax = 2)

# Computing Label plot
s.label(autos_acp$co, xax = 1, yax = 2)
