Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
252 131 116 113 657 157 368 151 114 149 115 239 282 155 114 195 337 312 149 187 261 145 199 217 128 197 193 142 246 115 158 241 143 113 152 295 171 153 297 170 295 117 172 138 127 226 316 254 224 279 290 117 111 206 151 115 286 115 171 182 102 232 167 106 63 136 96 150 123 315 293 144 243 168 815 186 240 198 202 188 240 344 208 169 241 330 205 115 121 300 137 113 105 150 109 102 128 88 137 291 95 135 98 94 128 124 120 113 178 98 167 113 155 134 127 121 97 140 133 140 78 138 141 129 127 104 140 142 142 90 106 217 142 134 104 127 184 114 167 104 117 115 64 137 572 118 263 221 104 117 174 275 113 255 247 352 107 155 219 113 138 66 353 231 283 107 255 153 119 143 258 314 277 298 152 116 302 256 137 113 119 154 293 250 190 231 192 267 179 305 284 320 195 258 132 147 153 154 265 277 291 255 155 166 153 156 269 213 209 232 154 297 278 419 261 103 196 204 242 314 655 272 174 273 217 136 116 198 336 62 253 150 139 155 105 303 224 143 142 145 352 275 298 1235 297 610 269 289 254 315 241 255 113 230 274 130 263 107 155 113 282 137 297 238 171 165 267 1259 259 278 112 142 114 265 163 384 213 222 114 290 409 631 421 153 125 306 216 260 253 709 584 271 240 339 357 422 222 492 186 211 245 254 785 158 171 263 228 546 242 153 198 233 212 151 269 294 346 413 210 169 227 139 153 186 271 113 186 98 256 139 200 141 341 147 130 207 209 264 174 257 110 231 154 265 155 63 140 338 315 364 267 141 114 306 154 315 533 154 154 297 152 340 155 269 331 155 204 572 187 311 167 250 132 234 154 63 158 207 414 151 193 184 427 297 154 144 168 191 407 298 224 213 292 438 301 309 156 179 295 327 235 397 131 144 144 198 366 136 144 1227 154 263 303 104 154 316 115 258 278 94 152 258 153 337 243 292 184 260 225 214 205 146 276 253 229 262 175 404 264 300 277 331 286 780 154 117 214 112 2561 137 361 262 68 252 426 235 154 177 211 162 141 299 289 327 407 254 138 346 65 166 224 278 271 294 120 154 299 289 204 268 121 532 107 130 138 215 294 153 386 243 154 279 155 292 230 253 143 112 262 1793 1007 205 139 219 286 494 183 63 157 330 279 306 247 283 148 734 259 348 129 166 112 269 78 268 145 331 122 217 392 278 275 112 172 264 203 302 298 69 383 264 156 354 270 239 412 111 115 154 253 1086 283 244 134 169 144 142 207 1177 360 389 1056 300 320 169 153 278 794 154 308 129 272 216 279 460 358 251 348 153 112 115 196 267 139 116 227 154 243 290 143 264 251 81 268 114 160 194 232 113 66 105 154 156 270 153 154 197 691 154 240 272 122 1007 240 153 118 726 308 305 265 324 231 205 184 325 151 169 249 155 295 252 223 373 136 356 143 132 132 104 134 145 113 151 114 159 185 146 136 132 152 127 200 128 225 62 63 62 122 134 146 155 143 115 104 145 141 144 59 145 145 144 144 145 96 145 104 105 58 104 145 141 150 145 145 146 145 245 121 145 101 144 142 150 151 99 160 145 145 145 144 152 121 105 190 175 144 136 105 145 101 132 115 120 240 185 111 105 146 62 62 124 151 194 244 97 174 250 125 291 154 302 115 215 181 231 250 144 124 100 136 261 243 219 110 466 348 154 297 448 194 300 259 129 270 378 159 199 117 246 185 244 236 304 126 121 378 116 238 329 161 730 268 205 147 305 258 148 260 240 263 250 322 347 322 733 355 438 1049 361 280 406 423 273 229 281 279 282 314 289 262 421 327 426 323 297 407 427 425 420 299 412 435 274 946 281 403 267 657 494 147 152 152 166 299 259 593 181 170 166 153 164 170 514 209 135 183 142 160 204 299 305 105 230 232 154 286 137 141 293 74 416 351 690 119 264 285 130 119 69 222 248 255 394 299 269 286 288 195 234 2120 295 152 302 220 251 62 115 336 297 110 134 154 305 268 269 308 276 309 235 294 220 172 229 124 292 154 182 365 128 179 235 365 314 303 272 246 157 154 269 238 232 345 273 301 290 201 131 1079 163 192 142 141 205 278 200 246 227 440 376 205 339 370 145 411 146 403 703 289 186 306 356 315 176 129 147 349 204 218 373 316 372 203 265 132 152 155 297 172 248 343 175 341 370 367 380 178 2061 244 394 315 443 405 414 160 285 202 182 201 206 289 104 352 202 401 358 418 817 302 287 395 366 192 138 308 140 398 161 308 424 320 204 174 179 368 201 182 202 170 260 202 361 1249 340 378 349 202 400 124 163 414 193 203 490 203 170 307 162 383 202 1413 154 191 202 828 161 139 395 372 131 202 299 351 365 188 280 403 356 202 231 325 388 339 503 395 409 230 387 184 464 180 161 164 379 336 203 369 376 392 295 361 371 379 324 335 337 344 370 196 315 203 191 375 322 391 356 324 479 145 342 385 1215 349 346 274 167 297 318 178 319 165 209 422 287 241 327 317 415 219 358 175 353 162 192 192 135 193 188 124 137 192 193 162 131 286 185 178 141 193 186 148 175 80 79 191 192 189 193 164 193 195 144 192 182 193 190 325 342 116 193 190 141 193 178 193 193 170 192 194 190 191 396 181 193 190 166 193 202 192 124 191 192 136 193 188 167 137 603 135 78 79 75 174 80 133 124 79 79 174 147 195 192 192 229 192 174 203 181 163 331 389 203 198 144 386 357 152 312 136 183 180 343 137 156 470 356 162 202 403 308 306 152 311 149 383 368 176 147 177 203 366 413 236 142 215 143 292 317 870 116 144 145 356 299 243 391 283 1164 309 314 195 364 412 187 318 344 356 207 346 348 189 296 183 203 355 297 420 204 202 1484 354 2267 343 213 236 170 242 191 193 193 193 237 194 192 193 244 183 128 194 192 185 193 194 198 173 208 191 194 193 137 193 465 232 202 344 202 174 343 180 436 185 157 303 200 388 571 202 185 290 402 173 210 331 351 411 365 374 387 213 146 353 2382 156 177 203 304 219 202 205 403 288 365 273 263 289 325 146 387 224 242 349 369 180 265 471 146 131 390 202 324 150 356 417 359 403 800 203 342 369 407 251 836 162 376 395 378 174 190 310 201 139 326 268 289 176 132 299 378 308 298 286 92 229 208 203 432 171 176 89 174 174 203 182 187 177 181 192 152 80 168 134 137 80 195 192 193 260 269 192 193 190 126 193 135 184 147 196 201 135 153 144 76 79 137 193 389 196 193 232 189 193 193 198 193 138 206 200 188 194 193 192 196 193 194 163 153 186 79 79 185 192 146 151 193 194 192 193 193 191 193 193 193 192 258 224 192 223 133 183 233 190 192 192 203 385 268 342 328 118 213 201 276 222 375 201 602 121 335 202 204 424 168 369 257 147 285 405 380 341 318 202 374 320 494 331 148 244 243 166 203 160 149 176 79 186 147 146 143 305 370 620 183 177 255 147 147 203 294 269 172 143 278 148 165 345 388 201 305 120 310 169 404 217 147 391 173 302 339 200 143 361 296 282 185 256 188 117 167 116 152 246 170 171 115 332 171 116 120 204 198 114 191 305 723 273 113 157 151 179 166 146 115 134 124 184 151
Sample Range:
(leave blank to include all observations)
From:
To:
Number of bins
(leave empty to use default)
(?)
Colour
grey
grey
white
blue
red
black
brown
yellow
Bins are closed on right side
FALSE
FALSE
TRUE
Scale of data
Interval/Ratio
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
par4 <- 'Interval/Ratio' par3 <- 'FALSE' par2 <- 'grey' par1 <- '100' 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 { plot(mytab <- table(x),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