arena <- Arena(n=100, m=100, stir=FALSE, Lx=0.025, Ly=0.025)
sub <- Substance(n=20,m=20,smax=40,name='test',difunc='r',
gridgeometry=arena@gridgeometry) #initialize test substance
diffuseR(sub)
Run the code above in your browser using DataLab