blob: 35a496055d141c3652f8e03cc357b77213913c35 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
function output = cohnpred(input,b)
uniqin = unique(input);
prediction = zeros(max(input),1);
p0=1/30114;
for i = 1:length(uniqin)
prediction(uniqin(i)) = b*p0*(psi(b*p0+uniqin(i)) - psi(b*p0));
end
output = prediction(input);
|