search for: tdont

...don21,kernel="normal",bandwidth=h[j],x.points=x)$y} diffctk<-function(x) {abs(fctk1(x)-fctk2(x))} intctk<-integrate(diffctk,-Inf,+Inf,subdivisions=100)$integral overlap<-1-0.5*intctk cpt<-cpt+1 Results[cpt,]<-c(name.cols(tdon[i]),name.cols(tdon[j]),round(overlap,3)) }} ## tdont is an application example: tdont <- data.frame(sp.1=c (2 ,3 ,5 ,7, 12) , sp.2=c (4, 2, 4, 8, 11, ),sp.3=c(NA, 4, 2, 6, 13 ), sp.4=c(3 ,1, 1, NA, 10), sp.5=c(2 ,NA ,2, 9, 9) I tried something like this in R: nbcol<-length (tdont[1,]) nlc<-matrix (0,1,nbcol) for (i in 1:nbcol) { nbl1<...