• QR Code (size=2)
• QR Code (size=3)
• QR Code (size=4)
• QR Code (size=5)
• QR Code (size=6)

$15.03 
16.12404227
0
15.33869255
15.71619688
14.05187132
15.80273996
14.72900666
0
16.16720185
15.22333123
0
0
0
14.48110918
15.70813979
13.95408248
15.96755769
13.98573645
15.94240702
15.62965498
16.14990672
13.72764576
15.73663229
13.53327547
0
14.18194667
0
16.15326425
16.09841387
16.09965118
16.16611933
15.27929079
14.89629876
0
16.1292792
15.80725202
13.32092848
16.13750343
16.09501104
16.15997215
15.70057694
15.09668669
14.14155666
15.68007295
15.80802981
13.46883365
15.93314713
15.9630283
16.1081352
16.10212646
16.15733916
16.16735853
14.69301552
15.49518516
15.15645406
15.06675337
14.75483377
14.59499553
16.11361441
14.59283549
13.96327096
15.77190051
14.28061164
13.59081702
0
14.6467659
14.30798689
14.81699244
13.363782
14.36014532
0
15.27252534
0
0
16.16741736
14.82258967
15.98727674
0
15.43116708
15.73581781
13.79455948
15.07344519
16.05867543
0
15.87824787
15.7595818
0
16.00790208
15.51515157
14.2568536
13.35684066
16.16538684
0
15.99205507
14.25424117
16.07478375
16.10004279
16.15607284
15.91792764
15.34251486
0
15.47388915
14.07356747
13.66316578
16.1655411
14.52473417
16.16632528
0
0
0
16.08595543
15.32323009
15.22662614
15.0684811
16.15226875
14.50505255
0
15.4002888
0
14.35720656
14.34952239
16.09527721
16.10158161
15.11560184
16.15709914
15.55926842
13.50610106
16.11129481
0
14.70330549
14.51536784
14.09960101
16.0375761
16.15891316
16.16100059
15.72527552
15.33561168
14.01548959
15.81857437
14.77896612
15.01126643
13.68459703
16.16663648
15.97731706
15.97312617
16.12293198
15.58300219
15.19413334
14.53512305
15.79366754
16.12915062
16.15468372
16.1304471
0
15.58176336
15.14524347
15.70161877
16.16641934
16.15248699
0
15.73442434
14.90950263
14.38367849
16.16445313
14.01823765
15.99734012
0
14.25833019
15.91539018
16.14667249
14.14490049
14.9392493
15.57067837
15.81100437
0
15.34263113
0
14.16443291
0
14.00515855
15.61973577
15.87898984
15.45393607
13.64854327
16.16729865
16.14651829
16.16650942
0
16.09329375
15.17442393
15.58141055
16.0632739
15.45295205
15.95291575
16.10154411
14.3585897
0
16.04882968
15.9815029
14.27344645
14.67776172
13.91405046
13.90036784
15.03995694
13.59996358
15.60049534
13.73627764
13.34549949
15.83224869
16.1442915
16.16625347
15.87727902
0
15.09829357
0
14.02484683
13.4451696
16.12231587
16.08725656
16.08969281
15.81785649
15.09815378
16.03711721
0
0
14.2580508
14.5513291
13.38434274
15.41784235
16.12422501
15.9224813
16.16654061
16.09436163
14.67799486
15.58651229
14.92341899
16.1545598
15.35203326
0
15.62613516
16.04012262
16.11053757
16.08254089
14.29493193
15.88318163
14.9407965
0
16.08162876
13.38814844
14.18300573
14.26286774
16.16633938
16.04905843
14.7610205
15.92761661
16.15767549
0
16.09093872
16.13122423
16.04910432
13.69716037
16.15571081
0
16.0012706
0
16.07918473
13.95384927
13.38670765
0
15.09611376
14.19634344
15.73039841
13.49240205
15.30985002
16.06693275
15.86142209
15.31028195
16.16315906
16.1671526
15.49325143
0
0
0
15.31108712
15.93504581
15.61569853
14.21594013
16.05457187
16.03889051
15.72897369
15.26197852
16.16746441
16.10508485
16.15379113
13.86681106
15.76823331
13.34819612
0
16.16625077
16.13880806
13.99577712
16.16301511
14.65540222
16.14631396
0
15.75201326
16.16496834
16.02462889
13.68252763
15.11424624
15.65855229
15.82017644
15.95213275
15.67740727
16.16282847
16.13717964
15.33677219
0
15.9801748
13.78272989
14.96440211
14.92774853
15.77445839
15.02445372
14.97305739
14.45511748
14.04808817
16.00486748
15.86272564
16.16650991
0
0
16.06673297
16.10656344
13.96000252
15.16118547
16.122678
14.20289402
15.73942341
15.22800527
15.07551507
16.09628807
15.34465307
16.11403362
15.29956269
15.91391457
16.1661775
16.12053089
15.98426104
13.81286235
16.16273228
14.4400691
14.10696835
15.77391318
13.78737475
16.14692801
14.03163817
0
15.93334005
14.07085143
0
15.98190111
15.98989268
16.02293296
16.05368853
0
15.65664872
14.55740393
0
16.15772014
13.86866964
13.34019916
13.62877686
16.16162278
0
0
0
14.32242331
15.59325823
0
15.17484505
16.07896831
14.08758843
15.02427037
15.99324565
0
15.5485849
14.47426898
16.07381484
14.90048019
15.30309993
14.654008
16.02830114
14.76767583
14.14980638
15.87712718
15.33542599
16.02953123
16.08865276
16.04769884
13.38727836
15.21858805
13.57496687
14.04250006
13.51178096
0
15.4263232
14.3586932
16.13817523
15.60882704
14.83988386
15.95374626
15.46292657
0
0
16.11243295
15.66080981
13.89540597
15.33365719
15.77802355
0
14.79055128
0
14.42991948
16.08850591
0
15.72547349
15.72835644
14.10437401
15.41665252
15.73924662
15.6612729
15.90438691
16.08741483
15.67949129
14.15101458
15.21832032
15.86442809
14.48711101
15.7355795
16.16718688
15.97650566
14.99182905
16.13530457
15.43020779
16.14909948
13.62064813
13.53439826
15.92595799
15.64480353
16.15394552
16.15156167
15.48258046
16.15999239
15.56677723
13.96574878
15.59166963
0
16.16736081
0
16.04284851
14.66006989
14.70581954
0
14.55646713
14.718463
0
15.99626883
15.93990515
14.34272511
13.37914782
0
0
16.16704812
0
15.75054388
15.14644648
16.08290784
0
14.16067673
15.82255329
14.36714457
16.16736489
0
16.04115029
0
16.00481894
16.15071249
15.75154185
0
0
0
14.93059847
13.76903754
13.43254989
14.65985169
16.04402201
0
13.48710051
15.99290284
15.18024568
14.53351348
16.01953055
16.15327392
0
0
0
15.3820433
15.66477231
0
16.16187656
16.10247795
13.97149383
13.85926612
14.75693696
16.14505198
0
15.88235186
13.88638266
16.16463468
15.9397854
14.45411616
15.24075684
15.38466613
13.81572744
13.71279511
16.10767887
15.88927937
14.8434627
15.31121494
14.20786648
14.52065222
13.83355039
15.14036386
15.81806627
14.82748381
15.71989932
15.79763167
16.1669884
16.12475819
15.30816466
0
14.189985
16.16725832
15.80679464
16.12793332
16.14304381
13.89321971
16.14430863
15.75284542
15.8206318
0
13.90021039
15.1005361
15.97562152
15.75230311
13.38435207
16.15649438
15.11277521
15.67937759
0
0
14.7541755
13.47271058
15.57846912
15.4950014
13.72523338
15.55904928
15.88297679
0
15.1124843
13.67106575
14.20556721
14.77397818
0
16.16459474
0
15.4334905
0
16.16744349
14.40543995
0
16.16599424
16.14215594
16.15785486
15.4637867
14.66945979
14.83254438
16.06682565
16.16686921
16.15372386
14.21689893
0
15.24971699
15.49358699
16.16653911
15.06004097
16.09366844
0
16.16685804
15.34754648
13.50743546
16.14714784
13.77885083
14.18215674
16.1118284
15.86388674
14.798301
16.11491374
13.81379497
0
13.56238572
0
14.36234232
14.9999614
16.15619116
15.40708353
15.08418128
15.77084902
15.67292373
15.98033904
15.5569637
15.51449562
16.14896382
15.80801146
16.07416305
14.34960832
14.74593382
14.71922848
15.42611832
14.93073828
0
14.39040755
15.03863043
13.98400052
14.84661921
14.0222899
16.15842107
14.05116435
0
15.86050612
16.16642658
14.56944647
0
16.01227641
0
14.13724706
15.68488504
16.0731477
0
15.92984839
16.14312315
15.76226149
13.49622042
0
14.6695125
16.06979285
15.34558065
16.1672179
15.08811752
14.78108118
15.7782804
15.17219984
0
14.15354621
14.28894826
14.10622294
15.86107097
15.16983857
15.98686202
14.67429523
13.48214263
14.345389
15.5518577
15.77832022
13.47906121
15.548922
15.43981184
0
14.75932162
15.90518673
14.72719797
13.96092882
15.49686639
16.1194161
15.74764065
15.77915184
16.00024147
15.95721654
15.29828798
16.0520667
14.73645992
16.15560788
15.7967375
0
0
15.41401426
14.16907726
13.73422029
16.12555088
0
15.68510505
15.46824639
0
16.16677836
0
0
0
16.00780047
16.14260811
15.30399578
14.74703604
15.8917962
0
0
14.62172182
13.56883534
14.10153888
15.90300538
15.94786268
15.81097373
14.32274489
16.16663228
16.16637194
16.16461537
15.51000422
15.55504865
16.0634561
16.01215371
15.90100146
15.29790741
16.10223627
14.98668501
15.99094065
15.82056054
0
14.84272096
15.15292971
0
15.08428251
14.21900888
13.39859511
15.86146121
14.79396658
0
16.11007225
15.87190241
13.56274781
14.35203063
15.43210692
15.93260829
13.96279812
14.55741674
15.13123918
14.60304341
14.29380318
14.36530667
14.90151162
15.18107465
15.92350141
16.16506051
15.40597176
14.99858195
16.15030735
16.06939765
14.34622946
14.00085162
14.21694525
16.1359337
15.40822136
15.5823529
16.14305035
14.7300331
13.57910644
15.4524792
0
14.78045448
15.64576759
16.13337826
0
0
16.16332593
13.9926991
16.16535548
0
14.40854831
16.09850205
15.68608159
15.96190636
15.61150351
0
15.10593241
15.29175865
0
14.88859193
15.90151278
13.65806455
15.71181413
16.08170914
14.38815024
16.08509066
14.55796951
0
15.71439643
15.03221771
15.14575533
0
14.08499605
14.26124655
16.16737258
16.16698427
15.70560961
15.51381541
16.09567965
15.70367177
0
16.08098774
0
15.76175959
15.31142343
15.49088892
0
14.15895134
16.02066152
14.69013743
15.6327695
16.03366662
13.88463311
16.14399252
0
14.39947107
16.05444614
16.14527633
0
13.90298894
0
14.55071711
15.04849495
14.71108168
13.49371458
15.51605196
14.83417684
13.32640793
16.09301996
14.21968288
16.08131723
15.91605721
15.82100525
16.16728113
13.35421431
16.0006065
15.98951277
13.35805284
16.10546698
16.16371335
0
15.70761921
16.16222568
15.29786094
13.80493359
16.14106491
15.40985238
16.01723296
14.49457599
14.05248316
14.5655058
15.63514117
13.85715147
16.06253585
15.64878208
0
16.16742746
0
16.12209219
16.1256174
15.38040433
16.00866004
14.66658341
15.11498914
14.51360083
13.63161254
16.14322786
15.35842952
0
16.10660175
16.12362702
15.5033504
15.23218288
14.96453611
15.81619044
13.39032698
14.64958485
14.37901667
13.77084137
15.76130903
13.35039797
15.71026962
16.10503053
15.98110595
15.45792224
15.46095573
14.25625822
15.81952739
0
13.85700602
14.12390524
16.05975412
15.68764021
0
16.05847487
0
15.77547397
16.16697447
0
15.53893042
13.66523995
15.82970487
0
16.16655165
16.02932962
0
14.51536493
16.13531529
15.91538692
14.72030516
15.48660462
15.84614915
14.98818509
15.16643751
15.16235621
15.5498269
13.66704555
15.75961165
14.65884463
16.12353364
15.2094531
15.79184223
15.74434365
15.22460694
14.30342323
16.12331783
16.13572995
16.15717728
15.63549885
15.86207492
0
15.31908936
14.4706332
14.7879697
0
16.11835271
16.14962761
14.71930209
15.72504552
15.42327144
16.01862352
14.4119757
14.02912231
15.37846535
0
16.13540536
16.15685041
13.37623563
16.10660016
16.16726739
16.13560094
15.56802517
14.56972629
15.59367101
14.11876763
16.11155338
13.37049909
15.96406937
13.34325754
15.80425055
15.18677307
15.89242627
0
15.90734824
0
15.31259179
13.89280398
16.04741386
15.7362124
14.47843247
15.40239743
13.51102943
16.16740982
13.33237611
15.35206788
16.16730369
15.81401413
14.21471036
15.20612588
15.53583385
13.54979387
15.8285176
0
0
15.95316316
16.155947
15.23897121
16.11139973
15.69097689
16.15194816
0
16.16710676
14.48535634
16.03795451
15.51028206
13.56904036
16.14873729
14.71878704
14.38625697
15.99715063
16.16706168
14.26901738
0
0
0
14.87887019
16.06883901
16.13673522
13.93380031
14.85621489
15.510144
15.69474933
15.638377
16.16569746
15.60192598
0
15.95079077
14.85426836
15.16762937
15.31164823
13.69845481
0
16.15870147
15.06557975
16.1671666
16.15838481
14.12699117
16.09330538
14.4164186
15.97931392
15.91558213
14.24763792
14.82024726
15.68271755
15.44416078
14.81692973
16.16718749
0
15.48895516
0
14.90531783
0
0
15.99830938
15.04964228
15.13220598
14.91647235
0
0
14.5118042
15.24778747
13.47652379
15.74585231
16.11664553
14.82374065
14.97850667
15.41768007
13.65262934
15.8563454
14.82955129
15.3300972
15.20007289
15.43304669
15.92451818
14.34750347
0
16.15357462
0
13.70990462
15.7574824
15.08703223
14.03536167
14.10881899
15.66983622
16.09562956
15.59161781
13.42735235
0
16.16737711
14.84882583
16.16663464
0
15.88735866
14.79203936
15.20843777
15.48575606
16.16740777
0
14.9727033
15.03380253
15.86106776
14.82476331
15.6597308
15.64042313
15.92323274
0
16.15995214
15.8231758
14.93672358
14.94472364
15.60829696
15.40523756
14.80101162
14.62994331
16.13706812
15.01621046
0
14.49537858
15.27226954
16.16696221
0
15.57173917
15.55969354
14.70642322
16.16746131
15.14061353
15.58534925
14.01768942

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)
if (par4 == '11-point Likert') par1 <- c(1:11 - 0.5, 11.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,'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')
}