> .Random.seed <- c(57,0,3,0,0,0,49,16,0,0,0,0)
> printer(width=80,height=24)
> x_rnorm(20);
> y_rnorm(20)
> plot(x,y,xlab="X-Label",main="A Main Title",sub="Sub Title")
> plot(x,type="h")	#high-density plot


                                    A Main Title

       ......................................................................
       .                            *
       .              *
     1..                         *                                       *
       .                          *
       .                     *      *                       *       *
       .    *
 y   0..                 *      *                             *
       .                 *              *
       .                                                             *
    -1..
       . *
       .                       *                   *
       .                      *
       ......................................................................
                   -1               0               1               2

                                      X-Label
                                     Sub Title

> plot(abs(x),abs(y),type="b",pch=".",lty=2,log="xy")	# log axes, plotting dots, dotted lines




       .....................................................................
       .                                                          .
     2.. .                                                     .  .
       . .                       .                .            .  .
       . .                       .                .            .  .
     1.. .                       .                .  .         .  .
       . .                       .                .  .         .  .
 x     . .      .                .                .  .         .  .
     0.. .   .  .  .   .  .  .   .  .  .   .  .   .  .  .   .  .  .   .  .
       .           .   .  .  .      .  .   .  .         .                .
       .                  .  .             .            .                .
    -1..                                   .            .                .
       .                                   .            .
       .                                   .            .
       .....................................................................
                       5               10               15              20

                                        Time


> points(abs(x),abs(y),pch=8)	# overplot with marks
> abline(0,1)
> abline(h=1:4)
Line segments out of bounds X= -2.081853 Y= 0.477121
Line segments out of bounds X= -2.081853 Y= 0.60206
> series_ts(x,1958,12)
> ser2_ts(y,1957,4)
> plot(series)




       ......................................................................
       . .........                              ............  ..    ...
       . .    ...................               ... ..      ...........
   1.0.......................................................................
 a     .                    .......        ......................       .
 b     .                           ................      .....  .........
 s 0.5..          ................. ..     ....... ..........    ..    ..
 (     .                         ........................... ..   ...  .
 y     .                                         ......  ................
 )     .                                    ............. .     .....
       .                                    ...           .     . ...
       .                                 ...              .   ..    ...
       .                               ..                 . ..      ..
   0.1..                            ...                   ..
       ......................................................................
                          0.05     0.10               0.50    1.00

                                       abs(x)


> tsplot(series,ser2);




       ......................................................................
       .                                                          *
     2.. *                                                     *
       .                         *                *
 s     .
 e   1..                                             *
 r     .
 i     .        *
 e   0..     *                                              *         *
 s     .           *   *            *   *     *
       .                  *  *
    -1..                                                                 *
       .
       .                                   *            *
       ......................................................................
       1958.0              1958.5              1959.0              1959.5

                                        Time


> logo()
> tspoints(ser2,pch="#")	# overplot
> par(mfrow=c(2,2),oma=c(0,0,2,0))




       ......................................................................
     2..               .                 ..
       .               .                 ..
       .               .       .    .   . .                 #
       .               .       .    .   . .                ..     #.     #
     1..               #.     ..    ..  .  .              .  .   .  .. ..
       .    .#        . .     . .  . .  .  .             .   .   .    #
       . #..  .       . ..    . .#.. ..#   .            #     . .
     0..       .     .  .. ..#...  .#. ..  .      #    .      . .
       .        #    .    #. .   . .  .. . .     . .   .       #
       .         .  .       ..   . .  .  .      .  .  .
    -1..          . .            ..   .   .     .   . .
       .           #              .   .    #.  .     #
       .                          .          .#
    -2.......................................................................
        1957         1958          1959         1960         1961
                                                                          ......
                                                                          ......
                                                                          ..  ..
                                                                          ......
> plot(x,y,pch="o");
> abline(rbiwt(x,y))
> plot(x,y,type="l")
> frame();
> frame()	# should skip lower left corner
> plot(x,y,type="b",pch="X")
> mtext("Three different type parameters",outer=TRUE,side=3,line=.5,cex=1.5)
> par(mfrow=c(1,1),oma=rep(0,4))	# back to normal

                         Three different type parameters




       ......o....oo...............o.         ...............................
 y  -1 .oo.....ooooo.o....o..oo..o...    y -1 ...............................

            -1     0      1      2                 -1      0      1     2

                     x                                       x





                                         y    ...X...XX.XXXX.X.......XX.XXX..
                                           -1 .X........XX.......X...........
                                                   -1      0      1     2

                                                             x


> plot(x,y,type="n");
> text(x,y,seq(x))	# identifiers for points
> #identify(x,y,seq(x))	# test to see if identifiers match
> #lines(rd_locator(),lty=3)	# draw figure with graphic input
> pie(abs(x),main="A Pie Chart",paste("Slice",seq(x)))




       ......................................................................
       .                           16
       .              20
     1..                         5                                      18
       .                          19
       .                     10     2                       8       1
       .    15
 y   0..                 7      9                             13
       .                 6              3
       .                                                            17
    -1..
       . 11
       .                       4                   14
       .                      12
       ......................................................................
                   -1               0               1               2

                                         x


> hist(x,angle=45,inside=FALSE)	# shaded histogram


                                  S A Pie Chart
                                l l         7     5
                                 c c           6 e 4 3
                                  e     S  c  e ccee 2
                                   109..i..l.i lllcc
                                 S  . ..c .SS ..Sl
                         S        ic . .  .. ....
                          lice 12...e 1..8..... e 1
                                 .....1.....Slic .
                                 ice 13............
                               Sl.  ..... .S...Slice 20
                                 .. 14.5. 7.lic .. Slic
                                ice..e .  1.  e .     e 19
                               Sl   ic .    . ..18
                                   Sl ...e....
                                      6  c
                                         i
                                     c   l
                                    i    S
                                    S


> plot(density(x),type="l",main="Empirical Density Estimate")	# density plot





    10..              .............
       .              .. .. ....  .
     8..              ... ....  ...
       .              . .. .  .....
       .              .. ..  . .  .
     6..              ...  .... ...
       .              .  .. . ..  .
     4..              ... .. .  ...
       .              .  . .. .....
       .              ..... ....  .........................
     2.. ................ ....  .. .. .. .... ..  .... .. ..............
       . . .... .. .. . ....  .. .. .. .... ..  .... .. .... .. .. .. ..
     0.. .................................................................
         ...............................................................
         -2          -1           0           1           2            3

                                         x


> points(x,x*0,pch="o")	# with 1-dim scatter plot
> qqplot(x,y)


                             Empirical Density Estimate

       ......................................................................
 d 0.8..                       ...
 e     .                       .  .
 n     .                       .   ..
 s 0.6..                      .      .
 i     .                  .   .      .
 t     .                  ..  .      .                           .
 y 0.4..                 .  . .      .                           ..
 (     .                 .  . .       .                          ..
 x     .     ...        .   ..        .  .                 ..   .  .
 ) 0.2..    .   .       .    .        . ..        ..     .. .   .  . ..
 $     .   .    .      .     .         .  .      . .     .   .  .   .  .
 y     .   .     .     .                  .      .  .   .     . .   .   .
   0.0.. .. o  o ...... o  o   ooooooo   o ...... o ..... o o  .  o   o
       ......................................................................
      -2             -1             0              1              2

                                    density(x)$x


> qqnorm(x)




       ......................................................................
       .                                                                 *
       .                                                             *
     1..                                                      *     *
       .                                                    *
       .                            *   *          *
       .                          *
 y   0..                       ***
       .                     **
       .                 *
    -1..
       .                 *
       .    *         *
       . *
       ......................................................................
                   -1               0               1               2

                                         x


> matplot(cbind(x,rev(x)),y,pch="AB")




       .....................................................................
       .                                                                 *
     2..                                                    *    *
       .                                             *  *
       .
     1..                                           *
       .
 x     .                                         *
     0..                                  * * *
       .                       *  * * * *
       .                  *  *
    -1..               *
       .
       . *        *
       .....................................................................
        -2              -1               0               1                2

                            Quantiles of Standard Normal


> abline(h=y,lty=2)	# each line goes through 2 points!
> query("usr","cex","pin")
$usr:
[1] -1.783863  2.439922 -1.992869  1.728944

$cex:
[1] 1

$pin:
[1] 6.866667 2.300000

> usa(states=FALSE);




       ......................................................................
       ..........................B..A........................................
       ...............A.............................................B........
     1...........................A..B...B................................A...
       ...........................A.B........................................
       ..B............B......A....B.A.......................A.B.....A........
       .....A............B...................................................
     0...................A....B.A..................B........B.A..............
       .....B............A..............A................................B...
       ........................B.....................................A.......
    -1..
       ..A...................B...............................................
       ..................B.....A...................A.................B.......
       .......................A.B............................................
       ......................................................................
                   -1               0               1               2




> box(5)
> vvv_c(".CE 10","This is a test",
+ ".C 2","of the code for","constructing",".L 1.75",".C 3",".B 5","Vu-Graphs")
> vu(vvv)




       ......................................................................
       .....................................................................
       ....................................................................
       ...................................................................
       ..................................................................
       .....          .       ..                .. ..     ....
       .....          ..                                ...
       .....           ..                               ..
       .....            ..                              ..
       .....             .....                        ..
       ..................................................................
       ...................................................................
       ....................................................................
       .....................................................................
       ......................................................................





> bmat_matrix(runif(20),4,5)
> bmat_apply(bmat,2,"cumsum")	# add up cols to make divided bar heights
> bmat[,2]<- -bmat[,2]	# negate a column
> barplot(bmat,lines=3:6,angle=seq(20,80,20),names=encode(
+ "Bar",1:5),main="Bar graph")



                                 This is a test



                                 of the code for




                                  constructing






                                    Vu-Graphs




> plclust(hclust(dist(bmat)))	# dendrogram


                                     Bar graph


                                    ...........
     6..                            . . . . . . ............ ...........
       .                            ........... . . . . . .. .. . . . ..
     4..                            .. .  . . . .. . . . . . . . . .  ..
       .   ............             .. . . .  . ............ ...........
       .   .. . . . . .             ........... .. .  . .  . . . .. . ..
     2..   ............             .  .. ..... .  .  . . .. ...........
       .   ............             ........... ............ .. .. ..  .
     0.. .................................................................
       .                ...........
       .                ...........
    -2..                . .  . . ..
                        ...........

               Bar 1       Bar 2       Bar 3       Bar 4        Bar 5




> barplot(bmat,col=3:6,names=encode("Bar",1:5),main="Filled Bar Graph",
+ legend=encode("Group",1:4))





   3.5..                   .............................
       .                   .                           .
   3.0..                   .                           .
       .                   .                           .
       .                   .                           .
   2.5..                   .                           .
       .                   .                           .
   2.0..                   .                           .
       .                   .                           .
       .                   .                           .
   1.5..                   .                           .
       .             ..............             ...............
   1.0..             .            .             .             .
                     3            4             1             2





> for(i in seq(-8,8,2)) plot(x*10^i,y*10^(i+1))


                                  Filled Bar Graph

                                                       .................
                                    ...........        ...... Group 1  .
     6..                            .         . ..............Group 2...
       .                            ........... .      .......Group 3  .
     4..                            .         . .      .......Group 4  .
       .   ............             .         . ........................
       .   .          .             ........... .          . .         .
     2..   ............             .         . .          . ...........
       .   ............             ........... ............ .         .
     0..   ............ ........... ........... ............ ...........
       .                ...........
       .                ...........
    -2..                .         .
                        ...........

               Bar 1       Bar 2       Bar 3       Bar 4        Bar 5








 y     .....................................................................
       .                            *
 *     .              *
     1..                         *                                       *
 1 e-7 .                          *
 0     .                     *      *                       *       *
 ^     .    *
 (   0..                 *      *                             *
 i  e0 .                 *              *
       .                                                             *
 +  -1..
   e-7 . *
 1     .                       *                   *
 )     .                      *
       .....................................................................
                   -1               0               1               2
                   e-8             e0              e-8             e-8
                                      x * 10^i






 y     .....................................................................
       .                            *
 *     .              *
     1..                         *                                       *
 1 e-5 .                          *
 0     .                     *      *                       *       *
 ^     .    *
 (   0..                 *      *                             *
 i  e0 .                 *              *
       .                                                             *
 +  -1..
   e-5 . *
 1     .                       *                   *
 )     .                      *
       .....................................................................
                   -1               0               1               2
                   e-6             e0              e-6             e-6
                                      x * 10^i






 y     .....................................................................
       .                            *
 *     .              *
 0.001..                         *                                       *
 1     .                          *
 0     .                     *      *                       *       *
 ^     .    *
 ( 0.0..                 *      *                             *
 i     .                 *              *
       .                                                             *
-0.001..
       . *
 1     .                       *                   *
 )     .                      *
       .....................................................................
                 -0.0001           0.0            0.0001          0.0002

                                      x * 10^i






 y     ......................................................................
       .                            *
 *     .              *
   0.1..                         *                                       *
 1     .                          *
 0     .                     *      *                       *       *
 ^     .    *
 ( 0.0..                 *      *                             *
 i     .                 *              *
       .                                                             *
 +-0.1..
       . *
 1     .                       *                   *
 )     .                      *
       ......................................................................
                  -0.01            0.0             0.01            0.02

                                      x * 10^i






 y     ......................................................................
       .                            *
 *     .              *
    10..                         *                                       *
 1     .                          *
 0     .                     *      *                       *       *
 ^     .    *
 (   0..                 *      *                             *
 i     .                 *              *
       .                                                             *
 + -10..
       . *
 1     .                       *                   *
 )     .                      *
       ......................................................................
                   -1               0               1               2

                                      x * 10^i






 y     ......................................................................
       .                            *
 *     .              *
  1000..                         *                                       *
 1     .                          *
 0     .                     *      *                       *       *
 ^     .    *
 (   0..                 *      *                             *
 i     .                 *              *
       .                                                             *
 -1000..
       . *
 1     .                       *                   *
 )     .                      *
       ......................................................................
                  -100              0              100             200

                                      x * 10^i






 y     .....................................................................
       .                            *
 *     .              *
     1..                         *                                       *
 1  e5 .                          *
 0     .                     *      *                       *       *
 ^     .    *
 (   0..                 *      *                             *
 i  e0 .                 *              *
       .                                                             *
 +  -1..
    e5 . *
 1     .                       *                   *
 )     .                      *
       .....................................................................
                 -10000             0             10000           20000

                                      x * 10^i






 y     ......................................................................
       .                            *
 *     .              *
     1..                         *                                       *
 1  e7 .                          *
 0     .                     *      *                       *       *
 ^     .    *
 (   0..                 *      *                             *
 i  e0 .                 *              *
       .                                                             *
 +  -1..
    e7 . *
 1     .                       *                   *
 )     .                      *
       ......................................................................
                   -1               0               1               2
                   e6              e0               e6              e6
                                      x * 10^i


> 



 y     ......................................................................
       .                            *
 *     .              *
     1..                         *                                       *
 1  e9 .                          *
 0     .                     *      *                       *       *
 ^     .    *
 (   0..                 *      *                             *
 i  e0 .                 *              *
       .                                                             *
 +  -1..
    e9 . *
 1     .                       *                   *
 )     .                      *
       ......................................................................
                   -1               0               1               2
                   e8              e0               e8              e8
                                      x * 10^i


7.8u 3.6s 39r 	 /usr/s/cmd/Sqpe
