Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1800 2000 2200 2250 2400 2350 2350 2250 2250 2200 2150 2150 1900 2050 2100 2100 1900 1950 1900 1950 2000 2050 1900 2050 1750 1950 2250 2150 2250 2500 2250 2300 2550 2550 2600 2900 2400 2750 3300 3200 3150 3200 3200 3250 3600 3550 3600 3600 3300 3650 4200 3900 3950 4200 4300 4350 4650 4650 4450 4750 4300 4600 5350 4750 4900 4700 4500 4700 4700 4350 4400 4450 4050 4700 5050 4750 4800 4900 5000 5050 5400 5400 5350 5600 5200 6000 6650 6050 6050 6400 6400 6100 7050 6450 6250 6600 6000 6600 7400 6650 6250 6650
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