Nothing
P_ceq <-
function(i,c,N){
if(length(c) == 0){return(NULL)}
res = rep(-1,length(c))
if(i == 0){
return(0)
}
if(i >= 2){res[c==1] = 0} #only the first two points can be at distance 1
if(any(i < 2 & c==1)){
res[i < 2 & c==1] = P_cge_ale(2,2,1,N)
}
if((N %% 2) == 0 && i == N-2){ #special case N even, c = N/2
res[c == N/2] = exp(2*lchoose(N-2,i-1)+lfactorial(i-1)-lfactorial(N-1))
}
if(i == N-1){
res[c==floor(N/2)] = 1
}
#r = 2
#i0 = i - 1
#d = 2*c -2 -i0
ind = res == -1
if(any(ind)){
cvals = c[ind]
res[ind] = parameters(2,i-1,cvals,N)+
#r = 3
#i0 = i-1
parameters(3,i-1,cvals,N);
#i0 = i-2
if(i-2 >= 0 && i <= N-1){ #i0 <= N -r <=> i <= N-r+2
res[ind] = res[ind] + parameters(3,i-2,cvals,N);
}
#r = 4
#i0 = i-1
res[ind] = res[ind] + parameters(4,i-1,cvals,N);
#i0 = i-2
if(i-2 >= 0 && i <= N-2){ #i0 <= N -r <=> i <= N-r+2
res[ind] = res[ind] + parameters(4,i-2,cvals,N);
#i0 = i-3
if(i-3 >= 0 && i<=N-1){
res[ind] = res[ind] + parameters(4,i-3,cvals,N);
}
}
}#if any(ind)
return(res)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.