我正在尝试使用Momocs进行形状分析。我正在使用傅立叶分析,然后创建PCA并将其绘制出来。但是,我可能会丢失一些东西,因为最终PCA图显示了不同的谐波,而不是我的不同图像。另一个选择可能是该问题已经起源于PCA,但我不确定。
从列表导入的jpg文件。
all<-import_jpg(p,auto.notcentered = TRUE, fun.notcentered = NULL, threshold=0.5)
绘制图像-它们看起来正确
coo_listpanel(all)
更改为输出文件
a<-Out(all)
50次谐波的傅立叶分析
allef<-efourier(a, norm=TRUE, smooth.it=0, nb.h=50, start = FALSE)
PCA和绘图-绘制的形状不是我不同图像的形状,而是同一图像的不同谐波
pcalle<-PCA(allef)
plot(pcalle, pos.shp="xy")