Update core.R

spelling