Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
30277 30277 47262 110000 101353 70367 70367 70367 70367 110239 110000 46052 70367 70367 86000 110000 88500 70367 88500 70367 88500 101509 110000 101509 70606 91000 77713 91000 77713 91000 122000 91000 2329 47225 28430 85619 52926 53872 105000 105000 25000 86000 53049 112000 75166 68000 51004 70327 151400 90000 83338 83000 61000 86000 55451 33920 81769 38000 59652 55451 55451 55451 63000 53872 63000 85000 58600 133500 58825 35143 89600 59058 16852 58600 34250 90000 50760 93000 91000 38000 77104 81000 42000 75338 28000 77104 50760 30277 30277 30277 22080 85000 45000 76000 77000 69153 115000 116000 91627 116000 77499 113000 113000 108865 108806 91627 30277 69845 44348 113000 77499 108977 77499 30277 12500 50000 33000 19200 46000 138000 90090 48563 74137 138000 158000 74137 160000 90090 70000 158000 73941 138000 73941 138000 220000 90090 78491 90090 73192 70000 78491 138000 10000 10000 10000 16800 25000 25000 16800 3341 19093 42000 40053 3341 76800 5350 5350 14745
Chart options
R Code
gp <- function(lambda, p) { (p^lambda-(1-p)^lambda)/lambda } sortx <- sort(x) c <- array(NA,dim=c(201)) for (i in 1:201) { if (i != 101) c[i] <- cor(gp(ppoints(x), lambda=(i-101)/100),sortx) } bitmap(file='test1.png') plot((-100:100)/100,c[1:201],xlab='lambda',ylab='correlation',main='PPCC Plot - Tukey lambda') grid() dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Tukey Lambda - Key Values',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Distribution (lambda)',1,TRUE) a<-table.element(a,'Correlation',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Approx. Cauchy (lambda=-1)',header=TRUE) a<-table.element(a,c[1]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Exact Logistic (lambda=0)',header=TRUE) a<-table.element(a,(c[100]+c[102])/2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Approx. Normal (lambda=0.14)',header=TRUE) a<-table.element(a,c[115]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'U-shaped (lambda=0.5)',header=TRUE) a<-table.element(a,c[151]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Exactly Uniform (lambda=1)',header=TRUE) a<-table.element(a,c[201]) 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