Test insert.

[Laurence Lester]

 This is using #

[HTML][ This is using <> /HTML]

 This is using this... 

This is using "

[Laurence Lester]

 generate anything

[Randy Chugh]

Testing inserting code snippets:

 z=(17,1,100)\(17,2,200)\(17,3,600)\(28,1,400)\(28,2,800)

: z
         1     2     3
    +-------------------+
  1 |   17     1   100  |
  2 |   17     2   200  |
  3 |   17     3   600  |
  4 |   28     1   400  |
  5 |   28     2   800  |
    +-------------------+

: newtownid=(J(1,rows(uniqrows(z[.,1])),z[.,1]):==uniqrows(z[.,1])')*(1::rows(uniqrows(z[.,1])))

: newtownid
       1
    +-----+
  1 |  1  |
  2 |  1  |
  3 |  1  |
  4 |  2  |
  5 |  2  |
    +-----+

: info=panelsetup(z,1)

: den=panelsum(z[.,3],info)

: den
          1
    +--------+
  1 |   900  |
  2 |  1200  |
    +--------+

: den=den[newtownid]

: den
          1
    +--------+
  1 |   900  |
  2 |   900  |
  3 |   900  |
  4 |  1200  |
  5 |  1200  |
    +--------+

: share=z[.,3]:/den

: share
                 1
    +---------------+
  1 |  .1111111111  |
  2 |  .2222222222  |
  3 |  .6666666667  |
  4 |  .3333333333  |
  5 |  .6666666667  |
    +---------------+