Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.102 0.125 0.250 0.261 0.658 0.669 0.681 0.987 1.010 1.304 1.338 1.554 1.588 1.611 1.906 1.917 1.940 2.019 2.042 2.076 2.132 2.246 2.337 2.416 2.473 2.507 2.620 2.700 2.745 2.790 3.017 3.119 3.165 3.358 3.539 3.573 3.709 4.004 4.038 4.095 4.537 4.605 4.843 4.980 5.275 5.479 5.581 5.751 6.159 6.295 6.987 7.078 7.146 8.621 8.814 9.006 9.188 9.301 9.483 9.585 9.823 9.936 10.209 22.675 22.947 23.253 23.310 23.469 24.637 24.807 24.887 24.977 25.295 25.488 25.987 27.575 27.995 28.131 28.505 29.480 29.605 30.002 30.206 30.558 30.637 30.944 31.681 31.953 32.328 34.936 35.141 35.243 35.447 35.560 35.708 36.014 36.445 36.695 36.978 37.137 37.409 38.181 38.793 39.961 40.211 40.767 40.937 41.754 42.151 42.219 49.274 49.648 50.125 50.669 51.724 52.098 53.051 54.946 59.335 59.471 59.846 60.322 62.307 63.215 63.657 64.338 64.995 69.090 71.064 72.039 73.038 74.535 75.113 75.601 77.949 78.426 79.685 80.785 82.044 83.451 99.149 100.102 100.658 #HODNOTA! #HODNOTA! #HODNOTA! #HODNOTA! #HODNOTA!
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