我正在尝试使用MASS库中包含的painters数据集来拟合分类逻辑模型。
我将数据集分为两部分，因此我可以使用基线类别逻辑多项式模型预测未来学校变量的值，以评估分类响应学校与连续解释变量之间的关系。不幸的是，我的代码运行或错误，甚至没有尝试预测。
library(MASS)
set.seed(43)
painters_new<-painters[sample(nrow(painters)) , ] #randomizing rows
painters_pred<-painters_new[50:54,]
painters_new<-painters_new[1:49,]
model<-function(){
#likelihood
for( i in 1:N){
y[i] ~ dcat(p[i,])
#formulating probabilities
p[i,1]<-ebx[i,1]/ebxsum[i]
p[i,2]<-ebx[i,2]/ebxsum[i]
p[i,3]<-ebx[i,3]/ebxsum[i]
p[i,4]<-ebx[i,4]/ebxsum[i]
p[i,5]<-ebx[i,5]/ebxsum[i]
p[i,6]<-ebx[i,6]/ebxsum[i]
p[i,7]<-ebx[i,7]/ebxsum[i]
p[i,8]<-ebx[i,8]/ebxsum[i]
#formulating denominator of probabilities
ebxsum[i]<-ebx[i,1]+ebx[i,2]+ebx[i,3]+ebx[i,4]+ebx[i,5]+ebx[i,6]+ebx[i,7]+ebx[i,8]
#formulating numerator of probabilities
ebx[i,1]<-exp(beta0[1]+beta1[1]*composition[i]+beta2[1]*drawing[i]+beta3[1]*colour[i]+beta4[1]*expression[i])
ebx[i,2]<-exp(beta0[2]+beta1[2]*composition[i]+beta2[2]*drawing[i]+beta3[2]*colour[i]+beta4[2]*expression[i])
ebx[i,3]<-exp(beta0[3]+beta1[3]*composition[i]+beta2[3]*drawing[i]+beta3[3]*colour[i]+beta4[3]*expression[i])
ebx[i,4]<-1 #baseline is Category 4
ebx[i,5]<-exp(beta0[5]+beta1[5]*composition[i]+beta2[5]*drawing[i]+beta3[5]*colour[i]+beta4[5]*expression[i])
ebx[i,6]<-exp(beta0[6]+beta1[6]*composition[i]+beta2[6]*drawing[i]+beta3[6]*colour[i]+beta4[6]*expression[i])
ebx[i,7]<-exp(beta0[7]+beta1[7]*composition[i]+beta2[7]*drawing[i]+beta3[7]*colour[i]+beta4[7]*expression[i])
ebx[i,8]<-exp(beta0[8]+beta1[8]*composition[i]+beta2[8]*drawing[i]+beta3[8]*colour[i]+beta4[8]*expression[i])
}
#priors
beta0[1:3]~dnorm(0,1.0E-06)
beta1[1:3]~dnorm(0,1.0E-06)
beta2[1:3]~dnorm(0,1.0E-06)
beta3[1:3]~dnorm(0,1.0E-06)
beta4[1:3]~dnorm(0,1.0E-06)
beta0[4]<-0
beta1[4]<-0
beta2[4]<-0
beta3[4]<-0
beta4[4]<-0
beta0[5:8]~dnorm(0,1.0E-06)
beta1[5:8]~dnorm(0,1.0E-06)
beta2[5:8]~dnorm(0,1.0E-06)
beta3[5:8]~dnorm(0,1.0E-06)
beta4[5:8]~dnorm(0,1.0E-06)
}
library(R2OpenBUGS)
model.file <- file.path(tempdir(),"model1.txt")
write.model(model, model.file)
y<-as.numeric(painters_new$School)
N<-49
composition<-painters$Composition
drawing<-painters$Drawing
colour<-painters$Colour
expression<-painters$Expression
data<-list("y","N","composition","drawing","colour","expression")
params<-c('beta0','beta1','beta2','beta3','beta4')
inits<-function(){list( beta0=rep(0,8),beta1=rep(0,8),beta2=rep(0,8),beta3=rep(0,8),beta4=rep(0,8))}
out<-bugs(data,inits,params,model.file,n.chains = 3
,n.iter=6000,codaPkg = TRUE,n.burnin = 1000)
打开log.txt文件我收到以下错误消息：
模型在语法上是正确的
加载数据
预期的多变量节点
显然，这与数据结构错误相对应'我使用的某些变量预计会有不同的维度。虽然我尝试了不同的方法来定义我使用的实体，但我完全相信，根据理论，包含的节点具有正确的形式。 BUGS是否有可能无法使用分类，并希望我通过1次迭代将其缩放为多项式？
有什么想法吗？
经过各种试验和修改，似乎问题的来源是我试图定义beta-priors的方式。 BUGS不支持R的常用数组技巧。我尝试了一些if语句来运行我的方式并且我认为BUGS语言中的if语句的通常方式（lol？）使用BUGS等于（x，z）的2个函数和步骤（）。所以我完成了关于他们的作业并重新整理了之前的整个thing. model<-function(){
#likelihood
for( i in 1:N){
y[i] ~ dcat(p[i,])
#formulating probabilities
p[i,1]<-ebx[i,1]/ebxsum[i]
p[i,2]<-ebx[i,2]/ebxsum[i]
p[i,3]<-ebx[i,3]/ebxsum[i]
p[i,4]<-ebx[i,4]/ebxsum[i]
p[i,5]<-ebx[i,5]/ebxsum[i]
p[i,6]<-ebx[i,6]/ebxsum[i]
p[i,7]<-ebx[i,7]/ebxsum[i]
p[i,8]<-ebx[i,8]/ebxsum[i]
#formulating denominator of probabilities
ebxsum[i]<-ebx[i,1]+ebx[i,2]+ebx[i,3]+ebx[i,4]+ebx[i,5]+ebx[i,6]+ebx[i,7]+ebx[i,8]
#formulating numerator of probabilities
ebx[i,1]<-exp(beta0[1]+beta1[1]*composition[i]+beta2[1]*drawing[i]+beta3[1]*colour[i]+beta4[1]*expression[i])
ebx[i,2]<-exp(beta0[2]+beta1[2]*composition[i]+beta2[2]*drawing[i]+beta3[2]*colour[i]+beta4[2]*expression[i])
ebx[i,3]<-exp(beta0[3]+beta1[3]*composition[i]+beta2[3]*drawing[i]+beta3[3]*colour[i]+beta4[3]*expression[i])
ebx[i,4]<-1 #baseline is Category 4
ebx[i,5]<-exp(beta0[5]+beta1[5]*composition[i]+beta2[5]*drawing[i]+beta3[5]*colour[i]+beta4[5]*expression[i])
ebx[i,6]<-exp(beta0[6]+beta1[6]*composition[i]+beta2[6]*drawing[i]+beta3[6]*colour[i]+beta4[6]*expression[i])
ebx[i,7]<-exp(beta0[7]+beta1[7]*composition[i]+beta2[7]*drawing[i]+beta3[7]*colour[i]+beta4[7]*expression[i])
ebx[i,8]<-exp(beta0[8]+beta1[8]*composition[i]+beta2[8]*drawing[i]+beta3[8]*colour[i]+beta4[8]*expression[i])
}
#priors construction step-like
#f functions
for(j in 1:8){
f_branch[j,1]~dnorm(0,1.0E-6)
f_branch[j,2]<-0
#decision
if_branch[j]<-1+equals(j,4)
beta0[j]<-f_branch[j,if_branch[j]]
beta1[j]<-f_branch[j,if_branch[j]]
beta2[j]<-f_branch[j,if_branch[j]]
beta3[j]<-f_branch[j,if_branch[j]]
beta4[j]<-f_branch[j,if_branch[j]]
}}
library(R2OpenBUGS)
model.file <- file.path(tempdir(),"cat_log.txt")
write.model(model, model.file)
y<-as.numeric(painters_new$School)
N<-49
composition<-painters$Composition
drawing<-painters$Drawing
colour<-painters$Colour
expression<-painters$Expression
data<-list("y","N","composition","drawing","colour","expression")
params<-c('beta0','beta1','beta2','beta3','beta4')
out<-bugs(data,inits=NULL,params,model.file,n.chains = 3
,n.iter=6000,codaPkg = TRUE,n.burnin = 1000)
所以现在在运行下一组错误后，我在R中收到错误，而log.txt文件没有给出错误类型的指示。
model is syntactically correct
data loaded
model compiled
有什么想法吗？