Hello. I still have a problem with a script but this time it's not with missMDA.
i know i need to do a new post. this is what I had done since yesterday but the algorithm has hidden the post or I must return the job soon.
in short
my problem is that when I run the ACP script an error message appears and I don't know why
here are the codes used
library(knitr)
BD_donnees<-read.csv("D:/donnees.csv",header =TRUE,sep =";",dec =".",row.names=1.)
colnames(BD_donnees)<-c("PE","IE","ER","CEAS","CEA","CET","CEI","CES","ERP","ERA","AT")
kable(head(BD_donnees,n=54L),caption = "Tableau des données")
## CHARGEMENT DES PACKAGE
library(FactoMineR)
library(missMDA)
library(FactoInvestigate)
library(Factoshiny)
# ABREVIATION DES VARIABLES
colnames(BD_donnees)<-c("PE","IE","ER","CEAS","CEA","CET","CEI","CES","ERP","ERA","AT")
# PRESENTATION DES DONNEES
## Tableau
head(BD_donnees)
##Tableau des données statistiques
summary(BD_donnees)
# REALISATION DE L'ACP
## Completer les données manquantes
comp <- imputePCA(BD_donnees)
##ACP
e=c(1,2,3,4,5,6,7,8,9,10,11)
acp_BD_donnees<-PCA(comp$completeObs,quanti.sup =e)
## PRESENTATION DES RESULTATS DE L'ACP
## Valeurs propres
acp_BD_donnees$eig
## Coordonnées des individus
acp_BD_donnees$ind$coord
## Cosinus carrés des individus
acp_BD_donnees$ind$cos2
## Contribution
acp_BD_donnees$ind$contrib
#ACP AVEC PCAShiny
PCAshiny(acp_BD_donnees)
#GENERER LE RAPPORT AVEC FACTOINVESTIGATE
Investigate(acp_BD_donnees, file = "PCA.Rmd", document = "word_document", time = "1000L", parallel = FALSE)
Please click on this link to download the database
Thanks for your understanding