Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
124.06 124.58 122.00 124.02 124.16 124.29 123.93 124.62 121.81 124.14 124.31 125.15 125.35 125.48 124.17 125.33 124.46 123.39 123.14 122.24 119.31 120.87 120.43 119.41 118.85 119.08 117.25 118.51 118.42 118.56 117.97 117.98 115.25 117.23 117.08 116.83 117.17 117.73 115.74 116.99 116.90 116.49 115.84 115.92 113.32 114.84 114.75 114.84 115.03 115.03 112.99 114.15 113.77 113.57 113.38 112.71 110.27 111.73 112.12 112.31 111.73 111.83 109.99 111.15 111.25 110.87 110.27 110.18 108.15 109.60 109.60 109.41 109.80 109.60 107.76 109.02 108.62 109.02 109.22 108.92 106.69 107.76 107.66 107.85 107.95 107.85 106.30 107.37 107.66 107.46 107.37 107.18 105.43 106.39 106.50 106.50 106.69 106.50 105.14 106.50 106.20 105.72 104.76 104.55 102.71 104.36 104.65 104.46 104.65 103.88 102.32 103.39 103.00 102.71 102.51 102.04 100.00
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