osf.qmd

---
title: "Open Science Framework"
---

# Preamble

## Install Libraries

```{r}
#install.packages("remotes")
#remotes::install_github("DevPsyLab/petersenlab")
#remotes::install_github("paulhendricks/anonymizer")
```

## Load Libraries

```{r}
library("anonymizer")
library("tidyverse")
```

## Simulate Data

```{r}
set.seed(52242)

sampleSize <- 100

ID <- 1:sampleSize
X <- rnorm(sampleSize)
Y <- rnorm(sampleSize)

mydata <- data.frame(
  ID = ID,
  X = X,
  Y = Y)
```

# Generate Random Anonymized ID {#sec-anonymizedID}

To help protect participant anonymity, it is important to anonymize participant IDs so their data cannot be stitched together across papers.
To anonymize participant IDs, use the following script and change the seed for every paper so that a given participant gets a different anonymized code each time.

```{r}
#| eval: false

library("tidyverse")
library("remotes")

#install.packages("anonymizer")
remotes::install_github("paulhendricks/anonymizer")

library("anonymizer")
library("tidyverse")

# Generate Random Anonymized ID
mydata$anonymizedID <- anonymize(c(
  mydata$ID),
  .algo = "crc32",
  .seed = 20230426) # change seed for every paper (based on the date) so that participant gets a new code each time

# Re-Sort Data by Random Anonymized ID to Mix-Up Participants (so they are not in the same order for every paper)
mydata <- mydata %>%
  select(anonymizedID, everything()) %>%
  arrange(anonymizedID)

# Remove the Original ID Column
mydata <- mydata %>%
  select(-ID)
```

```{r}
#| code-fold: true

# Generate Random Anonymized ID
mydata$anonymizedID <- anonymize(c(
  mydata$ID),
  .algo = "crc32",
  .seed = 20230426) # change seed for every paper (based on the date) so that participant gets a new code each time

# Re-Sort Data by Random Anonymized ID to Mix-Up Participants (so they are not in the same order for every paper)
mydata <- mydata %>%
  select(anonymizedID, everything()) %>%
  arrange(anonymizedID)

# Print the Data
mydata

# Remove the Original ID Column
mydata <- mydata %>%
  select(-ID)
```

# Session Info

```{r}
#| code-fold: true

sessionInfo()
```