Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
60.105502136752000 7.907312589228700 -1.629491887131730 -1.523957559467700 -1.566427606620550 -3.789554566451050 54.200457074549000 -32.163510672247400 -30.402014378527600 33.723646041332600 -53.295571899362000 -14.104598762058100 7.823650371650560 -23.492157461915400 -39.202849795559900 -54.438726552717300 -63.160118106051600 -14.485513312119400 -6.628558771563010 -37.251050153206200 7.170462889295040 -12.467581386629100 23.642668315511900 -1.088791886433090 -51.662325993329800 -35.512251522296000 5.730258768588780 -4.402113954364150 -19.401440515526700 1.520637597479090 20.301634328476600 21.129552578314700 32.299041793952500 25.405520281557300 16.249817632919000 -24.017154073341100 -24.781620945858200 -15.622858322169500 -11.764952702771900 15.385614471917900 -5.431603723902270 -13.878589038249800 24.544117388533300 28.999963471410300 1.823381546043520 9.408070370187970 3.027664330040980 -4.924275934007740 -9.914609211208590 -41.194180801578900 4.537200239685570 23.270218164366300 -20.074935132256200 -20.509042121904400 10.759626115194600 24.269471838984300 35.926564997673600 32.318324426507600 37.872923673265400 36.110268543315900 50.367586366732600 19.674537875964500 10.769621706194800 -6.487800001055580 -27.566236037334000 -51.733367569934800 -6.992290362617900 8.946225886097070 8.880187826561670 -23.810509488063200 -0.278862805984659 -15.453298389024400 -10.467075471290800 -30.767386022286500 -18.473160300275400 8.491499309968790 -40.768910811535500 -21.233091409774700 -22.881542105592100 22.788332257880100 3.887467604892780 34.557110225165300 16.986140456027500 10.877064554075900 -23.973069195609600 -13.365480154239200 12.485438612906300 -15.173816735979200 21.213182978857300 0.785421269382084 -19.008182699649100 -25.508856180444900 -0.0938131575134094 16.888358118621200 43.708864849606400 14.542044173700200 -11.240111835232900 -29.369195516860100 -20.598685634972600 4.577397673602040 11.029760211128600 14.736685076468700 -23.531866174978400 -4.921531948129910 15.326629227714100 29.089261351332600 54.294590941540900 31.116771502448300 48.848504485926100 50.654788833335300 6.259586476791070 0.125927575354126 -29.312377188536800 -14.212774692833500 -16.321899968516800 -34.789232971974500 -53.298800682701200 -14.123472139651600 -19.904078112981600 34.583810001181300 -2.725432412863600 -14.154123473298900 -30.486335606010300 -56.722391646765900 -17.097567198469700 6.781804301078700 -4.199191314862560 5.918149190913310 5.256021609625350 29.797534213448200 28.099060232233400 -5.180180836364630 -0.79512116752386 -34.218142247410400 41.416164263170000 -24.533730369838100 -19.730557989372600 35.128077583754800 -13.576465130286600 8.648082866597060 -21.862534337184900 39.644586972684100 30.126766094770500 59.366912136556700 28.053251004387100 21.594556562382100 -23.984953845749900 -29.909150799627300 -27.276039391603000 4.602911543302070 -22.207181163616600 -34.743739592739000 -26.164702208665500 -10.142329515027000 -8.798035530515340 13.884425824100000 4.869115945923970 -17.876809417712400 -4.530999113435310 -8.675883254860650 14.553069972311400 -25.444493179183200 -18.503746337647300 28.668939513433700 -12.842768894583700 -12.673935863073800 35.065571570143000 10.491911074333600 34.799821814800400 26.382577058530900 -31.450295578912300 -13.350010123360100 -4.946762703076560 10.214763212881500 -20.151738608344600 -21.200384154203700 -3.841962139071430 2.477180829386330 26.117511976917100 1.306201075903630 15.976349059390100 -4.291690398502170 -5.682394150977980 -5.665764693693010 -30.332498938452400 38.729733363233400 -47.837997290189000 3.321940198286310 -2.614714534767530 3.499491319785020 -10.994735054654900 18.505687742399500 -1.727214314555110 27.734506649469200 -23.843594079094500 12.456713506740500 -20.970587319696400 22.355040813270000 -21.669053506196000 -14.584150283879600 -6.948261888214180 -3.844300734941500 -2.592175220424280 -2.606079633912260 -7.148573088618780 -11.133931876000000 18.463790548064300 10.431606141974300 20.111394906474100 17.585817125854700 -7.287709889268740 -10.719794800931300 -7.889017955932450 4.236220472917470 -9.492926941993910 14.098999815588100 -2.340445580023980 3.813803754024780 2.058393512826170 4.052997857020270 -10.844862137151400 50.853012324373200 15.264595051509300 -18.231512532723900 14.857709931226600 10.891750422069800 -27.684531433388500 -22.296902373437300 -20.448256250686300 19.049784411625500 -9.460636400293250 -13.032621337357300 -8.549005941186380 57.140945046846900 19.424142212143000 -26.830983001473100 -2.375789422791060 -4.841984245517270 -10.430343313100500 -16.685597270849800 -8.535389246669300 -1.011460964061370 11.530320435740700 13.995248188981200 -12.322825473095300 24.042058033293400 39.967059599686800 -4.531480962211790 20.790634404711600 -6.631809056570660 -32.683088525343700 -13.213953207478000 21.010630015082000 32.219715891287000 19.962339504755600 10.717014437494100 -7.987055178677400 32.442592185996000 36.686806257020900 -3.434985112567400 8.795770356075250 -2.177042793156260 12.913345730458800 -7.731531394291040 7.113072823366450 -16.182569088679300 -11.520070591136300 -26.205387268549100 -25.197282316299900 5.070944864413150 33.521277765799400 5.463100604888840 -19.948599258901500 -25.529699094909000 1.531601015557840 -16.267856568258900 6.819238576668340 -13.621948325961600 0.640501844928622 -21.438419523167100 -25.586377618623900 3.756990400816330 24.516643860920200 8.509497665653100 -8.870562774209470 -10.818104143248300 -41.879148728358900 -16.889160341708500 -9.794453731080470 14.500002323189400 -5.710688022182180 4.477170448968650 -19.497295919848100 0.746187934154989 20.624401595029300 11.721153781144800 13.531505025554600 -26.309844364410300 13.476158699179900 2.534010682220700 29.753080445948200 9.046961144409860 -12.287076964116900 -12.523129418815900 1.327508167207160 16.347057213377300 33.449424050193600 6.395776893376880 43.777257340183200 1.295681207232460 38.135431520262000 39.459479737038400 131.183597606530000 7.175545616393490 15.292626067378000 -37.518684587387300 -26.973262898070600 -35.786051835778500 -14.023070258689400 -20.981771362873500 -23.408807568463500 -18.877586017302100 -38.708702989784300 -15.783276729274200 5.956315671720860 -7.058043321348120 -29.814249740754300 -29.324599906597200 -50.016753181472600 20.360623535237100 33.106532569123400 23.529990999874700 -20.732569468258800 -2.546910809680410 0.94132987310752 -12.591330063730200 -7.624749328039910 38.257466963522000 -22.406062405960700 -61.804184623424200 -30.868578939543700 10.934468801689900 -10.126286331900500 31.925762581573300 -10.207648081455900 -1.090251191291600 -8.301356733144980 -45.956006137348100 13.524671856492900 -1.020698593768880 18.509844184136300 -24.784269672428800 -7.760453189621440 -32.817236164421200 54.038726371657500 3.627317145533770 13.025417693240100 -9.993761806170820 -2.366689948430460 17.782239152593700
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
Unknown
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 { 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