added psetwd.R