pour faire PCA, why the problem

summary(decathlon)
100m Long.jump Shot.put High.jump 400m 110m.hurdle Discus Pole.vault Javeline 1500m
Min. :10.44 Min. :6.61 Min. :12.68 Min. :1.850 Min. :46.81 Min. :13.97 Min. :37.92 Min. :4.200 Min. :50.31 Min. :262.1
1st Qu.:10.85 1st Qu.:7.03 1st Qu.:13.88 1st Qu.:1.920 1st Qu.:48.93 1st Qu.:14.21 1st Qu.:41.90 1st Qu.:4.500 1st Qu.:55.27 1st Qu.:271.0
Median :10.98 Median :7.30 Median :14.57 Median :1.950 Median :49.40 Median :14.48 Median :44.41 Median :4.800 Median :58.36 Median :278.1
Mean :11.00 Mean :7.26 Mean :14.48 Mean :1.977 Mean :49.62 Mean :14.61 Mean :44.33 Mean :4.762 Mean :58.32 Mean :279.0
3rd Qu.:11.14 3rd Qu.:7.48 3rd Qu.:14.97 3rd Qu.:2.040 3rd Qu.:50.30 3rd Qu.:14.98 3rd Qu.:46.07 3rd Qu.:4.920 3rd Qu.:60.89 3rd Qu.:285.1
Max. :11.64 Max. :7.96 Max. :16.36 Max. :2.150 Max. :53.20 Max. :15.67 Max. :51.65 Max. :5.400 Max. :70.52 Max. :317.0
Rank Points Competition
Min. : 1.00 Min. :7313 Decastar:13
1st Qu.: 6.00 1st Qu.:7802 OlympicG:28
Median :11.00 Median :8021
Mean :12.12 Mean :8005
3rd Qu.:18.00 3rd Qu.:8122
Max. :28.00 Max. :8893
res<-PCA(decathlon,quanti.sup =11:12,quali.sup = 13)

Error in eigen(crossprod(X, X), symmetric = TRUE) :
LAPACK routines cannot be loaded

I think we need a FAQ: How to do a minimal reproducible example ( reprex ) for beginners

A handy way to supply some sample data is the dput() function. In the case of a large dataset something like dput(head(mydata, 100)) should supply the data we need.