Hi everyone,
I’m wondering if someone here can give me some clarification/advice on analysing the influence of size in shape. I am analysing the pronotum shape of two different genetic lineages of grasshoppers. I have run the following code in Geomorph and the results suggest there is a weak but significant allometric effect.
gen.allo <- procD.lm(data=allometry, shape~log(size), RRPP=FALSE, logsz=T, iter=1000)
summary(gen.allo)
Df SS MS Rsq F Z Pr(>F)
log(size) 1 0.006 0.006 0.041 4.184 3.118 4e-04 ***
Residuals 99 0.153 0.002 0.959
Total 100 0.159
Then, I run two alternative models to test for common/unique allometries between lineages to check if my data requires size correction.
unique <- procD.lm(data=allometry, shape~log(size)*group, RRPP=FALSE, logsz=T, iter=1000)
summary(unique)
common <- procD.lm(data=allometry, shape~log(size)+group, RRPP=FALSE, logsz=T, iter=1000)
summary(common)
anova(common, unique, print.progress=FALSE)
ResDf Df RSS SS MS Rsq F Z Pr(>F)
shape ~ log(size) + group (Null) 98 1 0.133 0.000
shape ~ log(size) * group 97 1 0.131 0.002 0.002 0.010 1.156 0.549 0.292
Total 100 0.15965
Based on this results, it seems that both lineages share common allometry given a non-significant interaction term (shape x lineage) in the group.unique model (R2 = 0.00979, Z = 0.5373, P = 0.297), meaning size correction would be appropriated. However, the Anova results (above) seem to indicate both models lack explanatory power (Am I right or am I missing something here?).
I have gone through previous threads about removing allometric effects but I'm not sure if it is the best way to proceed with my dataset as my main target here is to use naïve clustering on shape data and then check if phenotypic differentiation is coupled with major neutral genetic structuring. Any comments/advice would be very much appreciated!
Cheers, Leo