Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
6802.96 7132.68 7073.29 7264.5 7105.33 7218.71 7225.72 7354.25 7745.46 8070.26 8366.33 8667.51 8854.34 9218.1 9332.9 9358.31 9248.66 9401.2 9652.04 9957.38 10110.63 10169.26 10343.78 10750.21 11337.5 11786.96 12083.04 12007.74 11745.93 11051.51 11445.9 11924.88 12247.63 12690.91 12910.7 13202.12 13654.67 13862.82 13523.93 14211.17 14510.35 14289.23 14111.82 13086.59 13351.54 13747.69 12855.61 12926.93 12121.95 11731.65 11639.51 12163.78 12029.53 11234.18 9852.13 9709.04 9332.75 7108.6 6691.49 6143.05
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation