R devel - Aug 2002 - The attached function working fine with R 1.3.0 but giving problem with R 1.5.1 (PR#1964)

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)

}

 


-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._