From stakb@nus.edu.sg  Fri Aug 30 09:10:41 2002
From: stakb@nus.edu.sg (stakb@nus.edu.sg)
Date: Fri, 30 Aug 2002 10:10:41 +0200 (MET DST)
Subject: The attached function working fine with R 1.3.0 but giving problem with R 1.5.1 (PR#1964)
Message-ID: <200208300810.KAA12987@pubhealth.ku.dk>

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


The attached function working fine with R 1.3.0 but giving problem with R 1.5.1 (PR#1964)
stakb@nus.edu.sg