netpass.likelihood.prior <-
  t(rbind(Trouble=c(Novice=.2,Semester1=.2,Semester2=.2,Semseter3=.2,Semester4=.2),
          NDK=c(Novice=.2,Semester1=.2,Semester2=.2,Semseter3=.2,Semester4=.2),
          Model=c(Novice=.2,Semester1=.2,Semester2=.2,Semseter3=.2,Semester4=.2)))
netpass.likelihood.post <-
  t(rbind(Trouble=c(Novice=.04,Semester1=.14,Semester2=.26,Semseter3=.29,Semester4=.27),
          NDK=c(Novice=.06,Semester1=.16,Semester2=.26,Semseter3=.27,Semester4=.25),
          Model=c(Novice=.2,Semester1=.2,Semester2=.2,Semseter3=.2,Semester4=.2)))


netpass.margins.prior <-
  t(rbind(Trouble=c(Novice=.19,Semester1=.24,Semester2=.28,Semseter3=.20,Semester4=.09),
          NDK=c(Novice=.01,Semester1=.09,Semester2=.35,Semseter3=.41,Semester4=.14),
          Model=c(Novice=.19,Semester1=.28,Semester2=.31,Semseter3=.18,Semester4=.04)))

netpass.margins.post <-
  t(rbind(Trouble=c(Novice=.03,Semester1=.15,Semester2=.39,Semseter3=.32,Semester4=.11),
          NDK=c(Novice=.00,Semester1=.03,Semester2=.28,Semseter3=.52,Semester4=.17),
          Model=c(Novice=.10,Semester1=.25,Semester2=.37,Semseter3=.23,Semester4=.05)))

netpass.forecast.prior <-
  t(rbind(cfgCor=c(Low=.32,Medium=.44,High=.24),                      
          dgmCor=c(Low=.40,Medium=.46,High=.14),                      
          flstCor=c(Low=.32,Medium=.44,High=.24),                      
          logCor=c(Low=.32,Medium=.44,High=.24),                      
          logEff=c(Low=.32,Medium=.44,High=.24)))

netpass.forecast.post <-
  t(rbind(cfgCor=c(Low=0,Medium=1,High=0),                      
          dgmCor=c(Low=.32,Medium=.51,High=.17),                      
          flstCor=c(Low=.07,Medium=.59,High=.34),                      
          logCor=c(Low=0,Medium=0,High=1),                      
          logEff=c(Low=0,Medium=1,High=0)))

## Data taken from CLI paper