Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
113 119 133 130 122 136 149 149 137 120 105 119 116 127 142 136 126 150 171 171 159 134 115 141 146 151 179 164 173 179 200 200 185 163 147 167 172 181 194 182 184 219 231 243 210 192 173 195 197 197 237 236 230 244 265 273 238 212 181 202 205 189 236 228 235 265 303 294 260 230 204 230 243 234 268 270 271 316 365 348 313 275 238 279 285 278 318 314 319 375 414 406 356 307 272 307 316 302 357 349 356 423 466 468 405 348 306 337 341 319 363 349 364 436 492 506 405 360 311 338 361 343 407 397 421 473 549 560 464 408 363 406 418 392 420 462 473 536 623 607 509 462 391 433
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