Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
386 403 235 403 407 235 221 359 436 360 345 408 232 251 407 420 387 405 381 239 227 387 408 370 385 423 214 237 349 401 405 401 409 231 255 358 401 417 417 397 227 229 397 394 392 392 430 258 234 375 396 351 399 374 219 207 332 346 400 382 400 198 209 386 417 348 355 361 234 206 391 374 408 384 386 243 233 399 394 368 387 387 231 243 374 415 395 387 395 220 202 370 363 381 417 421 222 217 370 376 361 387 358 206 241 244 414 357 362 370 221 217 430 379 383 414 401 233 202 416 412 374 221 374 208 204 367 412 418 384 412 248 230 376 379 390 386 377 222 206 376 472 382 420 414 210 229 438 439 458 220 338 216 243 249 409 415 420 432 261 266 385 419 442 417 357 232 226 393 417 382 370 387 241 245 396 413 393 435 389 247 260 412 388 387 417 436 236 253 394 409 402 384 397 200 243 270 416 381 455 448 268 251 383 440 445 424 382 233 239 407 416 392 442 428 233 266 417 403 425 431 410 225 268 366 395 408 420 250 202 247 405 404 419 387 378 229 215 374 398 382 408 389 243 227 394 402 379 403 434 226 223 403 418 392 413 413 239 239 368 446 374 406 420 231 227 395 449 425 363 403 224 243 353 389 424 362 372 224 245 373 395 401 391 418 208 228 371 377 380 406 370 220 221 326 381 366 379 382 231 203 359 388 349 338 366 220 215 385 222 363 384 393 198 214 376 400 380 393 390 227 235 363 378 349 379 386 226 215 351 393 370 398 377 197 220 357 380 331 353 323 212 224 307 376 381 386 399 213 214 378 427 375 443 423 247 208 354 365 319 199 336 218 197 NA NA 261 NA NA NA NA
Names of X columns:
Maandag Dinsdag Woensdag Donderdag Vrijdag Zaterdag Zondag
Sample Range:
(leave blank to include all observations)
From:
To:
Color
grey
white
blue
red
black
brown
yellow
Omit all rows with missing values?
no
yes
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
z <- na.omit(as.data.frame(t(y))) bitmap(file='test1.png') (r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,col=par1)) dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/overview.htm','Boxplot statistics','Boxplot overview'),6,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Variable',1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/lower_whisker.htm','lower whisker','definition of lower whisker'),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/lower_hinge.htm','lower hinge','definition of lower hinge'),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/central_tendency.htm','median','definitions about measures of central tendency'),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/upper_hinge.htm','upper hinge','definition of upper hinge'),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/upper_whisker.htm','upper whisker','definition of upper whisker'),1,TRUE) a<-table.row.end(a) for (i in 1:length(y[,1])) { a<-table.row.start(a) a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE) for (j in 1:5) { a<-table.element(a,r$stats[j,i]) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Boxplot Notches',4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Variable',1,TRUE) a<-table.element(a,'lower bound',1,TRUE) a<-table.element(a,'median',1,TRUE) a<-table.element(a,'upper bound',1,TRUE) a<-table.row.end(a) for (i in 1:length(y[,1])) { a<-table.row.start(a) a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE) a<-table.element(a,r$conf[1,i]) a<-table.element(a,r$stats[3,i]) a<-table.element(a,r$conf[2,i]) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable1.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