Displaying 1 result from an estimated 1 matches for "clusterproj".
Did you mean:
clusterpoi
2002 Aug 30
4
(PR#1964) The attached function working fine with R 1.3.0 but giving problem with R 1.5.1 (PR#1964)
...############
>
> cat(paste("Projection direction = (",paste(round(theta,6),
>
> collapse=","),")",sep=""),"\n")
>
> cat("Projection index =",cluster.index,"\n")
>
> ##################
>
> w <- clusterproj(x,theta)
>
> # define first cluster break
>
> n.break <- seq(w)[round(w,6)>=round(cluster.index,6)]
>
> n.ord <- order(x%*%theta)
>
> A.ndx <- n.ord[seq(n.break)]
>
> B.ndx <- n.ord[seq(n.break+1,dim(x)[1])]
>
> print(sort(A.ndx))
>
> print(s...