Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
235 403 407 235 221 386 403 360 345 408 232 251 359 436 387 405 381 239 227 407 420 370 385 423 214 237 387 408 405 401 409 231 255 349 401 417 417 397 227 229 358 401 392 392 430 258 234 397 394 351 399 374 219 207 375 396 400 382 400 198 209 332 346 348 355 361 234 206 386 417 408 384 386 243 233 391 374 368 387 387 231 243 399 394 395 387 395 220 202 374 415 381 417 421 222 217 370 363 361 387 358 206 241 370 376 357 362 370 221 217 244 414 383 414 401 233 202 430 379 374 221 374 208 204 416 412 418 384 412 248 230 367 412 390 386 377 222 206 376 379 382 420 414 210 229 376 472 458 220 338 216 243 438 439 415 420 432 261 266 249 409 442 417 357 232 226 385 419 382 370 387 241 245 393 417 393 435 389 247 260 396 413 387 417 436 236 253 412 388 402 384 397 200 243 394 409 381 455 448 268 251 270 416 445 424 382 233 239 383 440 392 442 428 233 266 407 416 425 431 410 225 268 417 403 408 420 250 202 247 366 395 419 387 378 229 215 405 404 382 408 389 243 227 374 398 379 403 434 226 223 394 402 392 413 413 239 239 403 418 374 406 420 231 227 368 446 425 363 403 224 243 395 449 424 362 372 224 245 353 389 401 391 418 208 228 373 395 380 406 370 220 221 371 377 366 379 382 231 203 326 381 349 338 366 220 215 359 388 363 384 393 198 214 385 222 380 393 390 227 235 376 400 349 379 386 226 215 363 378 370 398 377 197 220 351 393 331 353 323 212 224 357 380 381 386 399 213 214 307 376 375 443 423 247 208 378 427 319 199 336 218 197 354 365 261
Sample Range:
(leave blank to include all observations)
From:
To:
Number of bins
(leave empty to use default)
(?)
Colour
grey
white
blue
red
black
brown
yellow
Bins are closed on right side
FALSE
TRUE
Scale of data
Unknown
Interval/Ratio
3-point Likert
4-point Likert
5-point Likert
6-point Likert
7-point Likert
8-point Likert
9-point Likert
10-point Likert
11-point Likert
Chart options
Title:
Label x-axis:
R Code
par1 <- as.numeric(par1) if (par3 == 'TRUE') par3 <- TRUE if (par3 == 'FALSE') par3 <- FALSE if (par4 == 'Unknown') par1 <- as.numeric(par1) if (par4 == 'Interval/Ratio') par1 <- as.numeric(par1) if (par4 == '3-point Likert') par1 <- c(1:3 - 0.5, 3.5) if (par4 == '4-point Likert') par1 <- c(1:4 - 0.5, 4.5) if (par4 == '5-point Likert') par1 <- c(1:5 - 0.5, 5.5) if (par4 == '6-point Likert') par1 <- c(1:6 - 0.5, 6.5) if (par4 == '7-point Likert') par1 <- c(1:7 - 0.5, 7.5) if (par4 == '8-point Likert') par1 <- c(1:8 - 0.5, 8.5) if (par4 == '9-point Likert') par1 <- c(1:9 - 0.5, 9.5) if (par4 == '10-point Likert') par1 <- c(1:10 - 0.5, 10.5) bitmap(file='test1.png') if(is.numeric(x[1])) { if (is.na(par1)) { myhist<-hist(x,col=par2,main=main,xlab=xlab,right=par3) } else { if (par1 < 0) par1 <- 3 if (par1 > 50) par1 <- 50 myhist<-hist(x,breaks=par1,col=par2,main=main,xlab=xlab,right=par3) } } else { barplot(mytab <- sort(table(x),T),col=par2,main='Frequency Plot',xlab=xlab,ylab='Absolute Frequency') } dev.off() if(is.numeric(x[1])) { myhist n <- length(x) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/histogram.htm','Frequency Table (Histogram)',''),6,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Bins',header=TRUE) a<-table.element(a,'Midpoint',header=TRUE) a<-table.element(a,'Abs. Frequency',header=TRUE) a<-table.element(a,'Rel. Frequency',header=TRUE) a<-table.element(a,'Cumul. Rel. Freq.',header=TRUE) a<-table.element(a,'Density',header=TRUE) a<-table.row.end(a) crf <- 0 if (par3 == FALSE) mybracket <- '[' else mybracket <- ']' mynumrows <- (length(myhist$breaks)-1) for (i in 1:mynumrows) { a<-table.row.start(a) if (i == 1) dum <- paste('[',myhist$breaks[i],sep='') else dum <- paste(mybracket,myhist$breaks[i],sep='') dum <- paste(dum,myhist$breaks[i+1],sep=',') if (i==mynumrows) dum <- paste(dum,']',sep='') else dum <- paste(dum,mybracket,sep='') a<-table.element(a,dum,header=TRUE) a<-table.element(a,myhist$mids[i]) a<-table.element(a,myhist$counts[i]) rf <- myhist$counts[i]/n crf <- crf + rf a<-table.element(a,round(rf,6)) a<-table.element(a,round(crf,6)) a<-table.element(a,round(myhist$density[i],6)) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') } else { mytab reltab <- mytab / sum(mytab) n <- length(mytab) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Frequency Table (Categorical Data)',3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Category',header=TRUE) a<-table.element(a,'Abs. Frequency',header=TRUE) a<-table.element(a,'Rel. Frequency',header=TRUE) a<-table.row.end(a) for (i in 1:n) { a<-table.row.start(a) a<-table.element(a,labels(mytab)$x[i],header=TRUE) a<-table.element(a,mytab[i]) a<-table.element(a,round(reltab[i],4)) 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