Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
225 180 190 180 205 225 185 235 235 210 245 245 185 185 180 220 194 225 210 240 225 263 210 235 230 190 220 210 180 235 185 175 192 263 180 240 210 160 230 245 228 155 200 235 235 105 180 185 245 180 240 225 215 230
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