wiederholte Messungen anova: Länge von 'Dimnamen' [1] nicht gleich Array Extent

Question

Ich führte die wiederholten Maßnahmen anova, das ist mein Code, es ist einfache Bedienung, und ich habe es immer schnell gemacht.

Link to mydata in .csv format

library(car) 
vivo4 <- read.csv("vivo1.csv",sep=";",dec=",") 

ageLevels <- c(1, 2,3,4,5,6,7,8,9,10,12) 
ageFactor <- as.factor(ageLevels) 
ageFrame <- data.frame(ageFactor) 

measures <- function(data = vivo4, n = 4) { #n=4 is 4 variables 
    ## Editor comment: 
    ## correct way to initialize a list, don't use "list(n)" 
    ## you can compare what you get from "list(4)" and "vector ("list", length = 4)" 
    ## lmo's comment: don't use "list" for your variable name (may mask R function "list") 
    ## I have corrected it as "Mylist" 
    Mylist <- vector("list", length = n) 
    for(i in 0:3) {Mylist[[i+1]] <- as.matrix(cbind(data[, 12*i + 1:12])) # 12 visits 
    } 
    Mylist 
} 

measures_list <- measures() 

models <- lapply(
    measures_list, function(x) { 
    ageModel <- lm(x ~ 1) 
    Anova.mlm (ageModel, idata = ageFrame, idesign = ~ageFactor) 
    }) 

models #View the result 

, aber ich habe den Fehler

Error in `rownames<-`(`*tmp*`, value = colnames(B)) : 
    length of 'dimnames' [1] not equal to array extent 

Ich habe viele Antworten gelesen und kann nicht verstehen, was falsch ist, ich Aufsicht brauchen.

Answer 1

Sie haben 12 Ebenen in Ihrem Datensatz, aber in Altersstufen haben Sie nur 11 Ebenen angegeben. dh Sie haben vergessen, 14

ageLevels zeigen < - c (1, 2,3,4,5,6,7,8,9,10,12, )