R version 2.9.0 (2009-04-17)
Copyright (C) 2009 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

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(0.00099950033305429
+ ,0.00099850232957088
+ ,-0.0009985023296184
+ ,-0.0030015030037291
+ ,0.001001502337127
+ ,-0.004012041489962
+ ,-0.0040282028286014
+ ,0.0020161297152037
+ ,0.0040201059166187
+ ,0.001002506349653
+ ,-0.0030105391528727
+ ,0.0010045204259987
+ ,-6.6613381477509E-15
+ ,0.0050075217305934
+ ,-0.0009995003331289
+ ,-4.5741188614556E-14
+ ,-0.001000500333546
+ ,0.001000500333538
+ ,-4.5741188614556E-14
+ ,-4.5741188614556E-14
+ ,-0.001000500333546
+ ,-0.0010015023370622
+ ,-0.001002506349673
+ ,0.002004008686753
+ ,0.001000500333538
+ ,-0.002002002670646
+ ,2.7089441800854E-14
+ ,-0.004016069654873
+ ,0.0020100509280176
+ ,-6.6613381477509E-15
+ ,0.0020060187268931
+ ,-0.001002506349673
+ ,0.002004008686753
+ ,-0.0020040086867623
+ ,-4.7073456244107E-14
+ ,-4.7073456244107E-14
+ ,-4.7073456244107E-14
+ ,0.001002506349653
+ ,0.0030015030037274
+ ,-2.8865798640254E-14
+ ,-0.0020000006666292
+ ,-0.0020040086867623
+ ,-4.7073456244107E-14
+ ,0.001002506349653
+ ,-0.001002506349673
+ ,-4.7073456244107E-14
+ ,0.001002506349653
+ ,-0.001002506349673
+ ,-0.0010035123772467
+ ,-6.6613381477509E-15
+ ,-0.0010045204260067
+ ,0.0020080328031984
+ ,0.001002506349653
+ ,-0.0020060187268727
+ ,-6.6613381477509E-15
+ ,-0.0010045204260067
+ ,-1.3322676295502E-15
+ ,-1.3322676295502E-15
+ ,-0.0010055305020016
+ ,1.7319479184152E-14
+ ,1.7319479184152E-14
+ ,0.0040160696549174
+ ,2.7089441800854E-14
+ ,2.7089441800854E-14
+ ,-0.0030105391528727
+ ,0.0010045204259987
+ ,-0.002010050928007
+ ,1.7319479184152E-14
+ ,-0.0010065426113823
+ ,1.9095836023553E-14
+ ,1.9095836023553E-14
+ ,0.002012073113419
+ ,0.0010045204259987
+ ,-0.002010050928007
+ ,1.7319479184152E-14
+ ,0.0020100509280176
+ ,-0.0030165935394066
+ ,0.0010065426114187
+ ,1.7319479184152E-14
+ ,0.0010055305020176
+ ,-0.0020120731134012
+ ,-0.001007556760281
+ ,1.8651746813703E-14
+ ,1.8651746813703E-14
+ ,0.0020140993717184
+ ,-0.0020140993716824
+ ,0.0050276626769183
+ ,0.002004008686753
+ ,0.0020000006666381
+ ,-2.8865798640254E-14
+ ,0.00099850232957088
+ ,-0.0019980026627184
+ ,-0.001000500333546
+ ,3.7747582837255E-14
+ ,0.001000500333538
+ ,-4.5741188614556E-14
+ ,0.00099950033305429
+ ,-0.0009995003331289
+ ,0.00099950033305429
+ ,0.0049825713444709
+ ,-0.00099453016649331
+ ,-0.00099552024148508
+ ,0.001990050408017
+ ,0.00099354205890689
+ ,-0.00099354205887092
+ ,0.00099354205890689
+ ,-0.00099354205887092
+ ,-0.0019900504079935
+ ,0.00099552024151706
+ ,-0.0019920325312848
+ ,-0.0019960086467439
+ ,0.001996008646671
+ ,0.00099651228975572
+ ,1.6875389974302E-14
+ ,0.00099552024151706
+ ,0.0029806281381153
+ ,-0.0029806281381224
+ ,1.5099033134902E-14
+ ,0.0019880722254153
+ ,2.9309887850104E-14
+ ,0.00099255591272929
+ ,-2.2204460492503E-14
+ ,-0.00099255591272218
+ ,-0.00099354205887092
+ ,0.00099354205890689
+ ,0.00099255591272929
+ ,0.0019821612039777
+ ,-1.3766765505352E-14
+ ,-0.00099058948171393
+ ,-0.00099157172231745
+ ,0.0019821612039777
+ ,-0.0019821612040136
+ ,-2.2204460492503E-14
+ ,-0.0029806281381224
+ ,-0.00099552024148508
+ ,0.001990050408017
+ ,0.00099354205890689
+ ,-0.00099354205887092
+ ,-0.00099453016649331
+ ,1.5099033134902E-14
+ ,1.5099033134902E-14
+ ,-0.0029895388483849
+ ,-0.0009985023296184
+ ,0.00099850232957088
+ ,0.00099750631708151
+ ,-4.3964831775156E-14
+ ,-4.3964831775156E-14
+ ,-0.00099750631714413
+ ,0.00099750631708151
+ ,0.00099651228975572
+ ,0.00099552024151706
+ ,1.5099033134902E-14
+ ,-0.0029895388483849
+ ,0.00099750631708151
+ ,-4.3964831775156E-14
+ ,-4.3964831775156E-14
+ ,-0.00099750631714413
+ ,-0.0009985023296184
+ ,-0.0009995003331289
+ ,-4.5741188614556E-14
+ ,0.00099950033305429
+ ,-0.0009995003331289
+ ,-0.002002002670646
+ ,0.001001502337127
+ ,3.7747582837255E-14
+ ,0.0020000006666381
+ ,-2.8865798640254E-14
+ ,-0.0009995003331289
+ ,0.001998002662654
+ ,-0.0009985023296184
+ ,-2.8865798640254E-14
+ ,0.00099850232957088
+ ,-0.0009985023296184
+ ,0.001996008646671
+ ,-0.0029955089798439
+ ,-4.5741188614556E-14
+ ,-4.5741188614556E-14
+ ,-4.5741188614556E-14
+ ,-0.001000500333546
+ ,0.001000500333538
+ ,0.0029955089797542
+ ,-4.3964831775156E-14
+ ,-4.3964831775156E-14
+ ,-4.3964831775156E-14
+ ,-4.3964831775156E-14
+ ,0.0019920325312559
+ ,0.00099453016651507
+ ,-0.00099453016649331
+ ,0.00099453016651507
+ ,0.00099354205890689
+ ,-0.0019880722253709
+ ,1.5099033134902E-14
+ ,-0.00099552024148508
+ ,0.00099552024151706
+ ,0.0019880722254153
+ ,2.9309887850104E-14
+ ,0.00099255591272929
+ ,-2.2204460492503E-14
+ ,-2.2204460492503E-14
+ ,-0.0019860979716224
+ ,-0.0029865626977932
+ ,0.00099651228975572
+ ,0.001990050408017
+ ,0.0019860979716069
+ ,-0.00099255591272218
+ ,2.9309887850104E-14
+ ,-0.0029835924668711
+ ,-0.00099651228978281
+ ,-0.0019960086467439
+ ,-0.0009995003331289
+ ,0.00099950033305429
+ ,0.001996008646671
+ ,-0.0019960086467439
+ ,0.00099850232957088
+ ,-1.8651746813703E-14
+ ,-1.8651746813703E-14
+ ,0.00099750631708151
+ ,-4.3964831775156E-14
+ ,0.00099651228975572
+ ,-0.001994018606883
+ ,-0.0009985023296184
+ ,-2.8865798640254E-14
+ ,-0.0009995003331289
+ ,0.00099950033305429
+ ,0.001996008646671
+ ,-4.3964831775156E-14
+ ,-0.00099750631714413
+ ,-1.8651746813703E-14
+ ,-0.0029985029962187
+ ,0.001000500333538
+ ,0.001998002662654
+ ,-0.0009985023296184
+ ,-2.8865798640254E-14
+ ,-2.8865798640254E-14
+ ,-2.8865798640254E-14
+ ,-0.0009995003331289
+ ,-0.0030045090203461
+ ,-4.7073456244107E-14
+ ,0.001002506349653
+ ,0.001001502337127
+ ,-0.0020040086867623
+ ,0.001002506349653
+ ,2.7089441800854E-14
+ ,-0.001002506349673
+ ,0.001002506349653
+ ,-0.001002506349673
+ ,-0.0010035123772467
+ ,-6.6613381477509E-15
+ ,0.001003512377193
+ ,-0.0010035123772467
+ ,0.001003512377193
+ ,-4.7073456244107E-14
+ ,-4.7073456244107E-14
+ ,-0.0010035123772467
+ ,-6.6613381477509E-15
+ ,0.0020060187268931
+ ,-0.0020060187268727
+ ,-0.0010045204260067
+ ,-0.0010055305020016
+ ,-0.0010065426113823
+ ,-0.001007556760281
+ ,1.8651746813703E-14
+ ,-0.0020181641562815
+ ,0.0010095912013557
+ ,-0.0020202027072966
+ ,0.0030287756621794
+ ,1.8651746813703E-14
+ ,0.0020140993717184
+ ,0.0010055305020176
+ ,-0.0020120731134012
+ ,0.0030165935394191
+ ,-0.0010045204260067
+ ,-1.3322676295502E-15
+ ,-1.3322676295502E-15
+ ,0.0020080328031984
+ ,-4.7073456244107E-14
+ ,0.001002506349653
+ ,2.7089441800854E-14
+ ,-0.001002506349673
+ ,0.0030045090202533
+ ,-0.001000500333546
+ ,-0.0010015023370622
+ ,0.0030015030037274
+ ,-0.0009995003331289
+ ,-0.002002002670646
+ ,0.0020020026706273
+ ,-4.5741188614556E-14
+ ,0.001998002662654
+ ,-0.0019980026627184
+ ,-0.001000500333546
+ ,-0.0010015023370622
+ ,-0.001002506349673
+ ,0.002004008686753
+ ,3.7747582837255E-14
+ ,0.0020000006666381
+ ,-2.8865798640254E-14
+ ,-2.8865798640254E-14
+ ,-0.0020000006666292
+ ,3.7747582837255E-14
+ ,-0.0020040086867623
+ ,0.001002506349653
+ ,-0.0020060187268727
+ ,-6.6613381477509E-15
+ ,-6.6613381477509E-15
+ ,0.001003512377193
+ ,-4.7073456244107E-14
+ ,-4.7073456244107E-14
+ ,0.001002506349653
+ ,2.7089441800854E-14
+ ,0.0020020026706273
+ ,-0.001000500333546
+ ,3.7747582837255E-14
+ ,-0.0010015023370622
+ ,0.0020020026706273
+ ,-0.001000500333546
+ ,-0.0010015023370622
+ ,0.0040000053333271
+ ,-0.0009985023296184
+ ,0.00099850232957088
+ ,0.00099750631708151
+ ,-4.3964831775156E-14
+ ,-4.3964831775156E-14
+ ,-4.3964831775156E-14
+ ,0.00099651228975572
+ ,0.00099552024151706
+ ,-0.0019920325312848
+ ,-4.3964831775156E-14
+ ,-4.3964831775156E-14
+ ,0.0019920325312559
+ ,1.5099033134902E-14
+ ,1.5099033134902E-14
+ ,0.00099453016651507
+ ,0.00099354205890689
+ ,2.9309887850104E-14
+ ,0.00099255591272929
+ ,-2.2204460492503E-14
+ ,-0.00099255591272218
+ ,0.00099255591272929
+ ,0.0019821612039777
+ ,0.00098960918518642
+ ,-0.0029717703891796
+ ,-2.2204460492503E-14
+ ,-0.00099255591272218
+ ,-0.00099354205887092
+ ,0.00099354205890689
+ ,2.9309887850104E-14
+ ,-0.00099354205887092
+ ,0.0019860979716069
+ ,0.00099157172227748
+ ,-1.7763568394003E-14
+ ,-1.7763568394003E-14
+ ,-1.7763568394003E-14
+ ,-0.00099157172231745
+ ,0.00099157172227748
+ ,-1.7763568394003E-14
+ ,0.0009905894816824
+ ,-1.3766765505352E-14
+ ,0.00098960918518642
+ ,-0.00098960918517976
+ ,-1.3766765505352E-14
+ ,0.001978240012086
+ ,-0.00098863082691913
+ ,0.00098863082692002
+ ,0.00098765440128057
+ ,-0.0019762852281917
+ ,0.0029629651306204
+ ,0.001970443987263
+ ,-3.5971225997855E-14
+ ,0.00098376791016408
+ ,-0.00098376791016852
+ ,-3.5971225997855E-14
+ ,-0.0019704439873358
+ ,0.002954211897463
+ ,-0.00098376791016852
+ ,0.001966568972064
+ ,2.3536728122053E-14
+ ,0.0039215736532237
+ ,4.1744385725906E-14
+ ,0.00097799518794162
+ ,-3.5083047578155E-14
+ ,-0.0039177327289353
+ ,-3.3306690738755E-14
+ ,-3.3306690738755E-14
+ ,-3.3306690738755E-14
+ ,-0.00098183611223313
+ ,0.0029426210542236
+ ,-0.0019607849419745
+ ,-0.00098183611223313
+ ,2.3536728122053E-14
+ ,2.3536728122053E-14
+ ,0.00098183611222336
+ ,-0.00098183611223313
+ ,2.3536728122053E-14
+ ,2.3536728122053E-14
+ ,2.3536728122053E-14
+ ,2.3536728122053E-14
+ ,2.3536728122053E-14
+ ,2.3536728122053E-14
+ ,2.3536728122053E-14
+ ,2.3536728122053E-14
+ ,0.0019627091678234
+ ,-0.00098087305562533
+ ,0.0019607849419669
+ ,-0.0039254221160743
+ ,-0.0019685045726687
+ ,3.5527136788005E-15
+ ,3.5527136788005E-15
+ ,0.00098473666250376
+ ,0.0029484050842639
+ ,-0.00098183611223313
+ ,0.00098183611222336
+ ,-0.0029484050843331
+ ,-3.5971225997855E-14
+ ,-0.00098473666253618
+ ,-0.00098570732479608
+ ,-0.00098667990243717
+ ,0.00098667990240831
+ ,-0.00098667990243717
+ ,0.00098667990240831
+ ,-3.6859404417555E-14
+ ,0.002954211897463
+ ,3.1530333899354E-14
+ ,0.00098280106193149
+ ,2.3536728122053E-14
+ ,-0.00098280106187643
+ ,3.1530333899354E-14
+ ,-0.00098376791016852
+ ,0.0029484050842639
+ ,0.00098087305556671
+ ,0.00097991188637492
+ ,2.5757174171304E-14
+ ,-0.00097991188637447
+ ,-2.5313084961454E-14
+ ,-0.0019627091678251
+ ,0.0019627091678234
+ ,-2.5313084961454E-14
+ ,-0.00098087305562533
+ ,0.00098087305556671
+ ,-0.00098087305562533
+ ,-0.00098183611223313
+ ,2.3536728122053E-14
+ ,0.0029426210542236
+ ,2.5757174171304E-14
+ ,2.5757174171304E-14
+ ,2.5757174171304E-14
+ ,2.5757174171304E-14
+ ,-0.00097991188637447
+ ,0.00097991188637492
+ ,-0.0019607849419745
+ ,0.00098087305556671
+ ,-2.5313084961454E-14
+ ,-0.00098087305562533
+ ,0.00098087305556671
+ ,-0.0019627091678251
+ ,2.3536728122053E-14
+ ,-0.00098280106187643
+ ,3.1530333899354E-14
+ ,3.1530333899354E-14
+ ,-0.00098376791016852
+ ,-0.0019704439873358
+ ,0.003937012959363
+ ,0.0019627091678234
+ ,-0.00098087305562533
+ ,-0.0029484050843331
+ ,0.0029484050842639
+ ,-3.3306690738755E-14
+ ,-0.0019646371741331
+ ,3.1530333899354E-14
+ ,3.1530333899354E-14
+ ,0.0019646371741313
+ ,-0.00098183611223313
+ ,2.3536728122053E-14
+ ,2.3536728122053E-14
+ ,2.3536728122053E-14
+ ,2.3536728122053E-14
+ ,2.3536728122053E-14
+ ,0.0048995688411235
+ ,-3.5083047578155E-14
+ ,0.00097703964786477
+ ,3.8191672047105E-14
+ ,0.00097608597303811
+ ,0.00097513415818273
+ ,0.0019474202843766
+ ,-0.00097323608651889
+ ,-0.001949318356067
+ ,-1.7319479184152E-14
+ ,-1.7319479184152E-14
+ ,0.00097513415818273
+ ,-2.3536728122053E-14
+ ,0.00097418419787676
+ ,-0.001949318356067
+ ,0.001949318356083
+ ,-0.001949318356067
+ ,-0.0019531256209171
+ ,-3.5083047578155E-14
+ ,-3.5083047578155E-14
+ ,-3.5083047578155E-14
+ ,-0.00097799518793495
+ ,0.0019550348358415
+ ,0.00097608597303811
+ ,-1.7319479184152E-14
+ ,-0.0019531256209171
+ ,-0.00097799518793495
+ ,0.00097799518794162
+ ,-0.00097799518793495
+ ,-0.0009789525989583
+ ,0.0019569477869257
+ ,-0.00097799518793495
+ ,4.1744385725906E-14
+ ,4.1744385725906E-14
+ ,4.1744385725906E-14
+ ,4.1744385725906E-14
+ ,-0.0009789525989583
+ ,0.00097895259902581
+ ,4.1744385725906E-14
+ ,-0.0009789525989583
+ ,0.00097895259902581
+ ,4.1744385725906E-14
+ ,4.1744385725906E-14
+ ,-0.0009789525989583
+ ,2.5757174171304E-14
+ ,-0.00097991188637447
+ ,0.00097991188637492
+ ,2.5757174171304E-14
+ ,0.00097895259902581
+ ,-0.0009789525989583
+ ,-0.0019607849419745
+ ,-3.3306690738755E-14
+ ,0.00098087305556671
+ ,0.001958864485375
+ ,4.1744385725906E-14
+ ,0.0068259650704414
+ ,-0.00097228981895814
+ ,-0.004875680063519
+ ,-0.00097799518793495
+ ,4.1744385725906E-14
+ ,4.1744385725906E-14
+ ,0.0019550348358415
+ ,3.8191672047105E-14
+ ,0.0019512201312382
+ ,-2.3536728122053E-14
+ ,-0.00097513415822359
+ ,0.0029225544425828
+ ,-0.00097323608651889
+ ,0.0009732360865331
+ ,0.00097228981898079
+ ,4.1744385725906E-14
+ ,0.00097134538964205
+ ,-0.00097134538959009
+ ,4.1744385725906E-14
+ ,0.0019417481829418
+ ,-0.001941748182869
+ ,4.1744385725906E-14
+ ,0.0019417481829418
+ ,-0.00097040279326865
+ ,-0.00097134538959009
+ ,0.00097134538964205
+ ,0.00097040279330995
+ ,3.1086244689504E-14
+ ,-0.00097040279326865
+ ,0.0019398648178099
+ ,0.00096852307808337
+ ,-4.7073456244107E-14
+ ,-4.7073456244107E-14
+ ,-0.00096852307814732
+ ,-1.6875389974302E-14
+ ,-1.6875389974302E-14
+ ,-1.6875389974302E-14
+ ,0.00096852307808337
+ ,0.0019342365798529
+ ,-0.0019342365798778
+ ,-0.00096852307814732
+ ,-0.0019398648178166
+ ,0.0038759738447101
+ ,-0.00096758594878299
+ ,-4.7073456244107E-14
+ ,-0.0019379851026473
+ ,0.00096946202453108
+ ,0.0019361090268832
+ ,-0.0019361090268832
+ ,0.0029027596579834
+ ,2.2204460492503E-14
+ ,2.2204460492503E-14
+ ,-0.00096665063107793
+ ,0.00096665063111701
+ ,2.2204460492503E-14
+ ,-0.00096665063107793
+ ,1.6875389974302E-14
+ ,0.00096665063111701
+ ,-0.00096665063107793
+ ,0.0019323677510168
+ ,-0.0019323677510368
+ ,1.6875389974302E-14
+ ,0.00096665063111701
+ ,0.00096571711992199
+ ,-3.6859404417555E-14
+ ,0.0009647854100634
+ ,-0.00096478541013578
+ ,-0.0019323677510368
+ ,0.0019323677510168
+ ,-0.00096571711993665
+ ,2.2204460492503E-14
+ ,-0.00096665063107793
+ ,0.0019323677510168
+ ,0.0009647854100634
+ ,-0.00096478541013578
+ ,0.0009647854100634
+ ,-3.5527136788005E-14
+ ,-0.00096478541013578
+ ,-3.6859404417555E-14
+ ,0.0009647854100634
+ ,0.0009638554962641
+ ,0.00096292737335757
+ ,-0.00096292737343617
+ ,-4.2632564145606E-14
+ ,-0.0019286409064425
+ ,-3.6859404417555E-14
+ ,0.0009647854100634
+ ,0.0019267828696643
+ ,-3.5971225997855E-14
+ ,0.00096200103616395
+ ,-2.7089441800854E-14
+ ,0.001921230177873
+ ,-0.00096015369832081
+ ,0.00096015369832259
+ ,0.00095923268747899
+ ,-0.00095923268748077
+ ,-2.0872192862953E-14
+ ,-0.00096015369832081
+ ,2.2648549702353E-14)
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Prof. Dr. P. Wessa
> #To cite this work: AUTHOR(S), (YEAR), YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #Technical description: Write here your technical program description (don't use hard returns!)
> gp <- function(lambda, p)
+ {
+ (p^lambda-(1-p)^lambda)/lambda
+ }
> sortx <- sort(x)
> c <- array(NA,dim=c(201))
> for (i in 1:201)
+ {
+ if (i != 101) c[i] <- cor(gp(ppoints(x), lambda=(i-101)/100),sortx)
+ }
> postscript(file="/var/www/html/rcomp/tmp/1tzu21288523834.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot((-100:100)/100,c[1:201],xlab='lambda',ylab='correlation',main='PPCC Plot - Tukey lambda')
> grid()
> dev.off()
null device 
          1 
> 
> #Note: the /var/www/html/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/html/rcomp/createtable")
> 
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,'Tukey Lambda - Key Values',2,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Distribution (lambda)',1,TRUE)
> a<-table.element(a,'Correlation',1,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Approx. Cauchy (lambda=-1)',header=TRUE)
> a<-table.element(a,c[1])
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Exact Logistic (lambda=0)',header=TRUE)
> a<-table.element(a,(c[100]+c[102])/2)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Approx. Normal (lambda=0.14)',header=TRUE)
> a<-table.element(a,c[115])
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'U-shaped (lambda=0.5)',header=TRUE)
> a<-table.element(a,c[151])
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Exactly Uniform (lambda=1)',header=TRUE)
> a<-table.element(a,c[201])
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/www/html/rcomp/tmp/2p9at1288523834.tab") 
> 
> try(system("convert tmp/1tzu21288523834.ps tmp/1tzu21288523834.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.616   0.189   0.735