Skip to content

Commit

Permalink
20240521 - fix blandr error
Browse files Browse the repository at this point in the history
  • Loading branch information
isaactpetersen committed May 21, 2024
1 parent 5a08a45 commit e39e75e
Showing 1 changed file with 8 additions and 8 deletions.
16 changes: 8 additions & 8 deletions 05-Reliability.Rmd
Original file line number Diff line number Diff line change
@@ -2661,8 +2661,8 @@ mydata_ex$time2 <- cnlsy$bpi_antisocialT2Sum
mydata_ex$time2 <- mydata_ex$time2 + 3
stability1_ex <- as.numeric(cor.test(x = mydata_ex$time1, y = mydata_ex$time2)$estimate)
cr1_ex <- qnorm(.975) * sd(blandr.statistics(mydata_ex$time1, method2 = mydata_ex$time2)$differences, na.rm = TRUE)
bias1_ex <- blandr.statistics(mydata_ex$time1, method2 = mydata_ex$time2)$bias
cr1_ex <- qnorm(.975) * sd(blandr.statistics(mydata_ex$time1, mydata_ex$time2)$differences, na.rm = TRUE)
bias1_ex <- blandr.statistics(mydata_ex$time1, mydata_ex$time2)$bias
```

```{r, include = FALSE}
@@ -2674,8 +2674,8 @@ mydata_ex$time1 <- mydata_ex$time1 + 3
mydata_ex$time2 <- mydata_ex$time2 + 3
stability2_ex <- as.numeric(cor.test(x = mydata_ex$time1, y = mydata_ex$time2)$estimate)
cr2_ex <- qnorm(.975) * sd(blandr.statistics(mydata_ex$time1, method2 = mydata_ex$time2)$differences, na.rm = TRUE)
bias2_ex <- blandr.statistics(mydata_ex$time1, method2 = mydata_ex$time2)$bias
cr2_ex <- qnorm(.975) * sd(blandr.statistics(mydata_ex$time1, mydata_ex$time2)$differences, na.rm = TRUE)
bias2_ex <- blandr.statistics(mydata_ex$time1, mydata_ex$time2)$bias
```

```{r, include = FALSE}
@@ -2686,8 +2686,8 @@ mydata_ex$time2 <- cnlsy$bpi_antisocialT2Sum
mydata_ex$time2[1:500] <- mydata_ex$time2[1:500] + 3
stability3_ex <- as.numeric(cor.test(x = mydata_ex$time1, y = mydata_ex$time2)$estimate)
cr3_ex <- qnorm(.975) * sd(blandr.statistics(mydata_ex$time1, method2 = mydata_ex$time2)$differences, na.rm = TRUE)
bias3_ex <- blandr.statistics(mydata_ex$time1, method2 = mydata_ex$time2)$bias
cr3_ex <- qnorm(.975) * sd(blandr.statistics(mydata_ex$time1, mydata_ex$time2)$differences, na.rm = TRUE)
bias3_ex <- blandr.statistics(mydata_ex$time1, mydata_ex$time2)$bias
```

```{r, include = FALSE}
@@ -2699,8 +2699,8 @@ mydata_ex$time1[1:500] <- mydata_ex$time1[1:500] + 3
mydata_ex$time2[1:500] <- mydata_ex$time2[1:500] + 3
stability4_ex <- as.numeric(cor.test(x = mydata_ex$time1, y = mydata_ex$time2)$estimate)
cr4_ex <- qnorm(.975) * sd(blandr.statistics(mydata_ex$time1, method2 = mydata_ex$time2)$differences, na.rm = TRUE)
bias4_ex <- blandr.statistics(mydata_ex$time1, method2 = mydata_ex$time2)$bias
cr4_ex <- qnorm(.975) * sd(blandr.statistics(mydata_ex$time1, mydata_ex$time2)$differences, na.rm = TRUE)
bias4_ex <- blandr.statistics(mydata_ex$time1, mydata_ex$time2)$bias
```

```{r, include = FALSE}

0 comments on commit e39e75e

Please sign in to comment.