Comment résoudre ce problème PCA en R

Question

Je crée une parcelle de PCA à partir des données:

label <- read.table('label_clusters.tsv') 
mydata <- read.table('raw_clusters.tsv') 

GP.svd = svd(mydata) 
dat = data.frame("pc1"= GP.svd$u[,1], 
      "pc2"= GP.svd$u[,2], 
      "Data"= c(rep("my", nsamples(our.obj2)), rep("zeller", nsamples(z.obj)))) 

GP.svd est une grande liste sous forme de:

   [,97]   [,98]   [,99]  [,100]  [,101]  [,102] 
    [1,] -9.616173e-02 -0.0779788701 -0.1087899396 -0.0653396699 -0.140911786 -5.064931e-02 
    [2,] 1.101038e-01 0.0465664554 0.0237686772 0.1344639223 0.035536326 2.715842e-02 
    [3,] -3.247248e-02 0.0295960109 0.0148926826 0.0021550661 -0.003509716 -1.887659e-02 

Quand je lance le code à ce jour, je reçois cette erreur:

Error in data.frame(pc1 = GP.svd$u[, 1], pc2 = GP.svd$u[, 2], Data = c(rep("my", : 
could not find function "nsamples" 

Je ne sais pas pourquoi cela se produit, toute aide est appréciée

Answer 1

Votre code ne peut pas trouver la fonction nsamples. Cela signifie que vous:

• doivent importer un package qui contient nsamples ou
• écrire une vous-même la fonction nsamples qui fonctionne correctement sur our.obj2 ou
• utilisent une autre fonction, par exemple nrow si our.obj2 est un data.frame.