Displaying 1 result from an estimated 1 matches for "sqrtmatrice0".
2020 Oct 09
1
Aide pour finaliser ce code
...onnelles . Maintenant
j'ai besoin d'utiliser les donn?es fonctionnelles en appliquant les noyaux
? la place des fontions xi, yi
library(MASS)
CentrageV<-function(X,Ms,n){
# cette fonction centre les donn?es de X
X1=X*0
for (i in 1:n){
X1[i,]=X[i,]-Ms
}
return(X1)
}
# Fonction N?2
SqrtMatrice0<-function(M) {
# Cette fonction nous permet de calculer la racine carr?e d'une matrice
# en utilisant la d?composition M=PDQ o? Q est l'inverse de P
# ici les valeurs propres n?gatives sont remplac?es par zero
a=eigen(M,TRUE)
b=a$values
b[b<0]=0
c=a$vectors
d=diag(sqrt(b))
b=sol...