[ns] setting error rate for two state error model

[jas Ogwilu]

How do you go about setting the error  rate to 5% in a two state error model? 
II set it as shown below. is this correct.


        set err1 [new ErrorModel/Uniform 0 pkt]
        set err2 [new ErrorModel/Uniform 1 pkt]
     
       set states [list $err1 $err2]
       set periods [list 0.95 0.05]
  
        set transmx {{0 1} {1 0}}
  


thanks