Update R/calculate_intensity.R : change error() function to stop() function

Change error() function, which is not a valid function, to stop() function
Merge branch 'patch-1' of https://github.com/adeschen/MetaFeatures