# Function Gini or Ineq

8 messages
Open this post in threaded view
|

## Function Gini or Ineq

 Hi listers, Does it necessary to install any package in order to use the GINI or INEQ functions. If I use the following command the R tells me that didn't find the GINI function. x<-c(541, 1463, 2445, 3438, 4437, 5401, 6392, 8304, 11904, 22261) G<-gini(x) Thanks in advance, Marcio
Open this post in threaded view
|

## Re: Function Gini or Ineq

 for the Gini coefficient you can use this function: gini <- function(x, unbiased = TRUE, na.rm = FALSE){      if (!is.numeric(x)) {          warning("'x' is not numeric; returning NA")          return(as.numeric(NA))      }      if (any(na.ind <- is.na(x))) {          if (!na.rm)              stop("'x' contain NAs")          else              x <- x[!na.ind]      }      n <- length(x)      mu <- mean(x)      N <- if (unbiased) n*(n - 1) else n*n      ox <- x[order(x)]      dd <- drop(crossprod(2 * 1:n - n - 1,  ox))      dd / (mu * N) } x <- c(541, 1463, 2445, 3438, 4437, 5401, 6392, 8304, 11904, 22261) G <- gini(x) I hope it helps. Best, Dimitris On 9/3/2010 5:37 PM, Mestat wrote: > > Hi listers, > Does it necessary to install any package in order to use the GINI or INEQ > functions. > If I use the following command the R tells me that didn't find the GINI > function. > > x<-c(541, 1463, 2445, 3438, 4437, 5401, 6392, 8304, 11904, 22261) > G<-gini(x) > > Thanks in advance, > Marcio -- Dimitris Rizopoulos Assistant Professor Department of Biostatistics Erasmus University Medical Center Address: PO Box 2040, 3000 CA Rotterdam, the Netherlands Tel: +31/(0)10/7043478 Fax: +31/(0)10/7043014 ______________________________________________ [hidden email] mailing list https://stat.ethz.ch/mailman/listinfo/r-helpPLEASE do read the posting guide http://www.R-project.org/posting-guide.htmland provide commented, minimal, self-contained, reproducible code.
Open this post in threaded view
|

## Re: Function Gini or Ineq

 Hi Dimitris, I have already seen your code in another post. But, I would like to weight my data. So, I wish I could use the following command: gini(x,  weights=rep(1,length=length(x))) Thanks anyway and I am trying to understand your gini function in order to apply a weigth. Marcio
Open this post in threaded view
|

## Re: Function Gini or Ineq

 you need install and load package {reldist} before you call function gini(). HTH.
Open this post in threaded view
|

## Re: Function Gini or Ineq

 Hi Peng, I did that i installed the package RELDIST, but nothing happened. R does not recognize this function. Still looking for the solution. Thanks, Marcio
Open this post in threaded view
|

## Re: Function Gini or Ineq

 You installed the package but probably forgot to load the library. This works fine for me. ================================================================= library(reldist) x<-c(541, 1463, 2445, 3438, 4437, 5401, 6392, 8304, 11904, 22261) G<-gini(x) ================================================================ --- On Fri, 9/3/10, Mestat <[hidden email]> wrote: > From: Mestat <[hidden email]> > Subject: Re: [R] Function Gini or Ineq > To: [hidden email] > Received: Friday, September 3, 2010, 1:07 PM > > Hi Peng, > I did that i installed the package RELDIST, but nothing > happened. R does not > recognize this function. > Still looking for the solution. > Thanks, > Marcio > -- > View this message in context: http://r.789695.n4.nabble.com/Function-Gini-or-Ineq-tp2525852p2525981.html> Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > [hidden email] > mailing list > https://stat.ethz.ch/mailman/listinfo/r-help> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html> and provide commented, minimal, self-contained, > reproducible code. > ______________________________________________ [hidden email] mailing list https://stat.ethz.ch/mailman/listinfo/r-helpPLEASE do read the posting guide http://www.R-project.org/posting-guide.htmland provide commented, minimal, self-contained, reproducible code.