error anova friedman.test

Hola, actualizo con el código en R, ya que he buscado en foros y demás y no veo donde esta el error, a ver si me puedes ayudar para así finalizar bien el ejercicio.
#leer el fichero Excel
library(readxl)
datos <- read_excel(«espalda.xlsx»)
#crear una nueva variable con la diferencia entre ODI_mes0 y ODI_mes1
diff_ODI <- datos$ODI_Mes0 – datos$ODI_Mes1
#añadir la variable al data frame
datos <- cbind(datos, diff_ODI)
# seleccionamos una variable 2 medidas pareadas
dfTOT <- datos
# Seleccionamos solo las filas de los valores del grupo 0
rowSel <- dfTOT[,11]==»0″
#crear un df con los valores del grupo 0, todas las filas de rowSel
dfTOT <- dfTOT[rowSel,c(9, 10,8)]
# creamos un data frame con las dos variables en la misma columna y un factor con el nombre de las variables
df <- data.frame(
Indice_Discapacidad = c(dfTOT[,1],dfTOT[,2]),
NHD = c(dfTOT[,3]),
#identificador de persona, la persona 1 se ha medido en el mes 0 y en el mes 1.
#es una secuencia desde 1 a la longitud del dataframe de 1 en 1.
ID = c(seq(1,length(dfTOT[,1])),seq(1,length(dfTOT[,1])))
)
library(lme4)
library(lmerTest)
# –> TEST PARAMÉTRICO – ANOVA DE MEDIDAS REPETIDAS (si son normales todas las variables)
#primero la variable de salida «Índice_Discapacidad» y luego las variables de entrada «NHD», «id»
rmaModel <- lmer(Indice_Discapacidad ~ NHD + (1|ID), data = df)
anova(rmaModel) #el resultado es un p-valor 4.738e-05 muy pequeño, se cumple la H1
#hacemos el test de normalidad, para saber si utilizamos
#el paramtrico y nos quedamos con el ANOVA o no parametrico que es el FRIEDMAN TEST
shapiro.test(residuals(rmaModel))
# –> TEST NO PARAMÉTRICO – FRIEDMAN TEST, ya que no es normal
friedman.test(df[,1],group=df[,2],blocks = df[,3])

ESTE ES EL ERROR:
> friedman.test(df[,1],group=df[,2],blocks = df[,3])
Error in friedman.test.default(df[, 1], group = df[, 2], blocks = df[, :
not an unreplicated complete block design

Gracias y un saludo.