added RDplot to Functions.R