Update test-calculateSubstrateMetrics.R

add a NA test