R/centerlines.R

Defines functions centerlines

Documented in centerlines

centerlines<-function(n)
{
li<-NULL
for (i in 2:n)
    for (j in 1:(i-1))
        {
        dummy<-numeric(n)
        dummy[c(i,j)]<-0.5
        li<-rbind(li,rep(1/n,n),dummy,rep(NA,n))
        }
rownames(li)<-NULL
return(li)
}

Try the klaR package in your browser

Any scripts or data that you put into this service are public.

klaR documentation built on May 29, 2024, 5:20 a.m.