1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| > C<-read.csv("cycle.csv",header=T,row.names=1,dec=",")
> her<-C$HER.2
> traits<-C[,c("Inf_1an","Sup_1an")]
> C.fuzzy<-prep.fuzzy.var(traits,col.blocks=2)
> C.fpca<-dudi.fpca(C.fuzzy)
Select the number of axes: 2
> C.fpca
Duality diagramm
class: pca dudi
$call: dudi.pca(df = df, row.w = row.w, col.w = col.w, center = TRUE,
scale = FALSE, scannf = scannf, nf = nf)
$nf: 1 axis-components saved
$rank: 1
eigen values: 0.02526
vector length mode content
1 $cw 2 numeric column weights
2 $lw 203 numeric row weights
3 $eig 1 numeric eigen values
data.frame nrow ncol content
1 $tab 203 2 modified array
2 $li 203 1 row coordinates
3 $l1 203 1 row normed scores
4 $co 2 1 column coordinates
5 $c1 2 1 column normed scores
other elements: cent norm blo indica FST inertia
> C.fpca$FST
inertia max FST
FV1 0.02526485 0.4866933 0.05191124
> scatter(dudi.fpca(C.fuzzy,scann=FALSE,nf=2),csub=0.8,clab.row=1,clab.col=0.8)
Erreur dans `[.data.frame`(x$li, , c(xax, yax)) : undefined columns selected
> windows();s.label(C.fpca$li, xax = 1, yax = 2,clabel=0,boxes=F,pch=5,cpoint=1,possub="topleft",sub = "ACP floue des traits biologiques")
Erreur dans scatterutil.base(dfxy = dfxy, xax = xax, yax = yax, xlim = xlim, :
Non convenient selection for yax |
Partager