1

私は反復測定 anova を実行しました。これが私のコードです。操作は簡単で、いつもすばやく実行しました。

.csv 形式の mydata へのリンク

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

しかし、私はエラーが発生しました

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

私は多くの回答を読みましたが、何が悪いのか理解できません。監督が必要です。

4

1 に答える 1

1

データセットには 12 のレベルがありますが、agelevels では 11 のレベルしか示していません。つまり、14 を指定するのを忘れました

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

于 2016-05-12T13:31:01.467 に答える