系统一直报错，麻烦各位指点，谢谢

data <- read.csv("test1.csv", sep=",", header=T)
treatments <- read.csv("treatments1.csv", sep=",", header=T)
network<- mtc.network(data, description="Example", treatments=treatments)
model <-mtc.model(network,type="consistency",factor = 2.5,n.chain=4,likelihood="binom",link="log",linearModel="random")

Error in `[.data.frame`(data, sel1 | sel2, columns, drop = FALSE) :
  undefined columns selected
>