R version 2.15.2 (2012-10-26) -- "Trick or Treat"
Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: i686-pc-linux-gnu (32-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> x <- c(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)
> par4 = 'Interval/Ratio'
> par3 = 'FALSE'
> par2 = 'grey'
> par1 = '500'
> xlab = 'x'
> main = 'Histogram'
> par4 <- 'Interval/Ratio'
> par3 <- 'FALSE'
> par2 <- 'grey'
> par1 <- '500'
> #'GNU S' R Code compiled by R2WASP v. 1.2.291 ()
> #Author: root
> #To cite this work: Wessa P., (2012), Histogram (v1.0.12) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_histogram.wasp/
> #Source of accompanying publication: 
> #
> 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)
> postscript(file="/var/fisher/rcomp/tmp/148ts1355980741.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> 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()
null device 
          1 
> if(is.numeric(x[1])) {
+ myhist
+ n <- length(x)
+ 
+ #Note: the /var/fisher/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
+ load(file="/var/fisher/rcomp/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="/var/fisher/rcomp/tmp/23gun1355980741.tab") 
+ } else {
+ mytab
+ reltab <- mytab / sum(mytab)
+ n <- length(mytab)
+ 
+ #Note: the /var/fisher/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
+ load(file="/var/fisher/rcomp/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="/var/fisher/rcomp/tmp/3g5f41355980741.tab") 
+ }
> 
> try(system("convert tmp/148ts1355980741.ps tmp/148ts1355980741.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  1.697   0.262   1.936