wrote mywrite() function to write down my R objects into file
added fun="r.aggr" option for molecular(), reinit() and mywrite() functions
calculated r.aggr aggregation array for N=27,T=0.01, dt=0.1, K=1000