par(mfrow = c(1,3))
for (r in kSel){
- image.plot(t(abs(model$phi[,,r])),title="hat{beta}",xaxt="n",yaxt="n",
+ image.plot(t(abs(model$phi[,,r])),xaxt="n",yaxt="n",
col=gray(rev(seq(0,64,length.out=65))/65),breaks=seq(0,valMax,length.out=66))
}
image.plot(t(abs(model$phi[,,kSel[1]]-model$phi[,,kSel[2]])),
meanPerClass[,r] = apply(XY_class[[r]], 2, mean)
}
-matplot(meanPerClass, type='l')
\ No newline at end of file
+matplot(meanPerClass, type='l')