Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1.117.287 1.127.093 714.232 1.073.580 516.700 873.438 454.449 419.146 1.053.205 553.744 233.598 381.251 408.451 229.848 360.723 183.828 360.276 288.798 180.897 161.376 159.714 226.697 181.304 157.012 201.853 150.224 55.749 114.512 226.292 278.158 153.234 66.850 65.704 58.903 98.405 907.691 256.449 89.965 101.899 408.856 99.518 184.086 309.782 424.694 282.938 113.960 125.012 454.394 78.911 109.473 71.897 79.791 214.417 573.172 97.794 107.531 420.714 229.542 79.690 26.321 210.816 726.937 167.048 112.851 140.071 340.080 191.466 149.172 171.703 419.001 228.916 199.216 72.796 59.104 69.052
Sample Range:
(leave blank to include all observations)
From:
To:
Chart options
R Code
library(ineq) my_minimum <- min(x) if(my_minimum < 0) { stop('Negative values are not allowed.') } myLength <- length(x) myMaximumEntropy <- log(myLength) mySum <- sum(x) myProportion <- x/mySum myEntropy <- -sum(myProportion * log(myProportion)) myNormalizedEntropy <- myEntropy / myMaximumEntropy myDifference <- myMaximumEntropy - myEntropy myTheilEntropyIndex <- entropy(x,parameter=1,na.rm=T) myExponentialIndex <- exp(-myEntropy) myHerfindahlMeasure <- sum(myProportion^2) myHerfindahl <- conc(x,type='Herfindahl',na.rm=T) myRosenbluth <- conc(x,type='Rosenbluth',na.rm=T) myNormalizedHerfindahlMeasure <- (myHerfindahlMeasure - 1/myLength) / (1 - 1/myLength) myGini <- Gini(x,na.rm=T) myConcentrationCoefficient <- myLength/(myLength -1)*myGini myRS <- RS(x,na.rm=T) myAtkinson <- Atkinson(x,na.rm=T) myKolm <- Kolm(x,na.rm=T) myCoefficientOfVariation <- var.coeff(x,square=F,na.rm=T) mySquaredCoefficientOfVariation <- var.coeff(x,square=T,na.rm=T) bitmap(file='plot1.png') plot(Lc(x)) grid() dev.off() bitmap(file='plot2.png') plot(Lc(x),general=T) grid() dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Concentration - Ungrouped Data',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Measure',header=TRUE) a<-table.element(a,'Value',header=TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Number of Categories',header=F) a<-table.element(a,myLength,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Maximum Entropy',header=F) a<-table.element(a,myMaximumEntropy,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Entropy',header=F) a<-table.element(a,myEntropy,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Normalised Entropy',header=F) a<-table.element(a,myNormalizedEntropy,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Max. Entropy - Entropy',header=F) a<-table.element(a,myDifference,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Theil Entropy Index',header=F) a<-table.element(a,myTheilEntropyIndex,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Exponential Index',header=F) a<-table.element(a,myExponentialIndex,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Herfindahl',header=F) a<-table.element(a,myHerfindahl,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Normalised Herfindahl',header=F) a<-table.element(a,myNormalizedHerfindahlMeasure,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Rosenbluth',header=F) a<-table.element(a,myRosenbluth,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Gini',header=F) a<-table.element(a,myGini,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Concentration',header=F) a<-table.element(a,myConcentrationCoefficient,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Ricci-Schutz (Pietra)',header=F) a<-table.element(a,myRS,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Atkinson',header=F) a<-table.element(a,myAtkinson,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Kolm',header=F) a<-table.element(a,myKolm,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Coefficient of Variation',header=F) a<-table.element(a,myCoefficientOfVariation,header=F) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Squared Coefficient of Variation',header=F) a<-table.element(a,mySquaredCoefficientOfVariation,header=F) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation