Hier.part in Statistik 3 ersetzen

DLND8 commented 8 months ago

Neuer Code hier: https://github.com/ResearchMethods-ZHAW/HS23/commit/114ab9bd3eab611a53e5e98b1dc096b234a945b5

ratnanil commented 8 months ago

@DLND8: kannst du das übernehmen, weil du auch https://github.com/ResearchMethods-ZHAW/HS23/commit/114ab9bd3eab611a53e5e98b1dc096b234a945b5 umgesetzt hast? Muss man da auch code outputs anpassen?

DLND8 commented 8 months ago

library(relaimpo)

lm_1 <- lm(ABUND~YR.ISOL+ AREA +  DIST + LDIST + GRAZE + ALT, data = loyn)

metrics <- calc.relimp(lm_1, type = c("lmg", "first", "last","betasq", "pratt"))
IJ <- cbind(I = metrics$lmg, J = metrics$first - metrics$lmg, Total = metrics$first)

IJ

$IJ
                 I            J       Total
YR.ISOL 0.11827368  0.135095338 0.253369016
AREA    0.02359769  0.041923060 0.065520747
DIST    0.02566349  0.030085610 0.055749104
LDIST   0.01270789 -0.005112317 0.007595573
GRAZE   0.25879164  0.207030145 0.465821782
ALT     0.07275743  0.076112117 0.148869552

Der grösste Teil (61%) der insgesamt erklärten Varianz dieses Drei-Parameter-Models wird hier also durch den Faktor Grazing erklärt.

Ich habe den Code und Output mal angepasst. Jedoch passt der kursiv geschriebene Text nicht mehr. @Hepi2 Kannst du hierfür eine Vorschlag nach Absprache mit Jürgen machen?

DLND8 commented 7 months ago

done with https://github.com/ResearchMethods-ZHAW/Statistik/commit/a00be298844b6729b94e0d8923e303d987611bce

ResearchMethods-ZHAW / Statistik

Hier.part in Statistik 3 ersetzen #35