From ripley@stats.ox.ac.uk  Fri Aug 30 09:26:48 2002
From: ripley@stats.ox.ac.uk (ripley@stats.ox.ac.uk)
Date: Fri, 30 Aug 2002 09:26:48 +0100 (BST)
Subject: (PR#1964) The attached function working fine with R 1.3.0 but
 giving problem with R 1.5.1 (PR#1964)
In-Reply-To: <200208300810.KAA12987@pubhealth.ku.dk>
Message-ID: <Pine.LNX.4.31.0208300924520.7778-100000@gannet.stats>

Could you us a hint what the problems are?
And an example to reproduce them?

On Fri, 30 Aug 2002 stakb@nus.edu.sg wrote:

> Full_Name: Kaushik Bhattacharyya
> Version: 1.5.1
> OS: Solaris
> Submission from: (NULL) (137.132.3.10)
>
>
> Main R-function used:
>
> pp1
>
> function(X)
>
> {
>
> x_as.matrix(X)
>
> trial_function(a)
>
> {
>
> clusproj(x,a)
>
> }
>
> test.nlm_nlm(trial,rep(1,ncol(X)))
>
> theta_test.nlm$estimate
>
> theta_theta/sqrt(sum(theta^2))
>
> cluster.index_round(1/test.nlm$min,6)
>
> # print the results
>
> ###############
>
> 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(sort(B.ndx))
>
> }
>
>
>
> Functions in the main function:
>
>
>
> clusterproj
>
> function(X,a) {
>
>     a <- a/sqrt(sum(a^2))
>
>     XS <- sort(X%*%a)
>
>     n <- length(XS)
>
>     w <- (seq(n-1)*mean(XS)-cumsum(XS[seq(n-1)]))*diff(XS)/((n-1)*var(XS))
>
>     w
>
> }
>
>
>
> clusproj
>
> function(X,a) {
>
>     a <- a/sqrt(sum(a^2))
>
>     XS <- sort(X%*%a)
>
>     n <- length (XS)
>
>     w <- (seq(n
>
> -1)*mean(XS)-cumsum(XS[seq(n-1)]))*diff(XS)/((n-1)*var(XS))
>
>     1/max(w)
>
> }
>

-- 
Brian D. Ripley,                  ripley@stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272860 (secr)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


(PR#1964) The attached function working fine with R 1.3.0 but giving problem with R 1.5.1 (PR#1964)
ripley@stats.ox.ac.uk