Added simple test for kpd.create() in mechanisms.R