Add is.diffusion() function

[mamut86]

is.diffusion <- function(x){
return(inherits(x,"diffusion"))
}