nowa punktacja

2026-05-25 21:53:56 +02:00
parent 76c9811f6b
commit 11649816a6
3 changed files with 43 additions and 41 deletions
@@ -1,6 +1,8 @@
 # Przygotowanie danych do analiz projektu moralnosci
 #
 library(dplyr)
+setwd("~/Documents/Uczelnie/Dydaktyczne/Empiryczna/UAM 26/moralnosc")
+
 # Skrypt:
 # 1. czyta surowe dane ankietowe,
 # 2. czyta wyniki eksperymentu karcianego,
@@ -325,7 +327,7 @@ score_ipsatywne_fundamenty <- function(dane,



-profil_fundamentow <- score_ipsatywne_fundamenty(matched, negative_weight = 0.5) |>
+profil_fundamentow <- score_ipsatywne_fundamenty(matched, negative_weight = 1) |>
  left_join(matched, by = c("id" = "kod_uczestnika_clean"))