add spinDir.R