-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathTODO
43 lines (29 loc) · 1.06 KB
/
TODO
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
TODO add noisy-min/max
calcNoisyMinTable <-
function (skillLevels,obsLevels, bypass,
noSlip=rep(1,length(obsLevels-1))) {
pdims <- sapply(skillLevels,length)
## Logical values indicating if each value has met the threshold.
svals <- vector("list",length(skillLevels))
for (j in 1:length(skillLevels)) {
svals[[j]] <- rev(cumsum(rev(skillLevels[[j]]==thresholds[j])))
}
ss <- as.matrix(do.call("expand.grid",svals))
rr <- sweep(ss,2,bypass,function(s,r) ifelse(s,1,r))
probs <- noSlip*apply(rr,1,prod)
probs <- cbind(probs,1-probs)
colnames(probs)<-obsLevels
probs
}
Missing link or links in documentation object 'LanguageData.Rd':
‘[Peanut]{NetworkTester}’
TODO add softmax link
TODO docs for ciTest, localDepTest,
‘ciTest’ ‘‘localDepTest’
TODO -- check state orders in barplot.CPF
TODO -- reverse state order
TODO -- better error messages when parent names doen't match expected
values (Pnet2Qmat)
* getNonOffsetRule
TODO -- vignettes
TODO -- need to better understand convergence of the mapGPC algorithm.