kdpi() returns value of 100 when any variable is set to NA

[schw4b]

Hi John

I just found that when calculating the KDPI with a missing value in any of the input variables the functions returns a KDPI of 100. Instead, the function should return NA.

best Simon