I was wrongly using ifelse, which resulted in a single value that was repeated in the data.frame, rather than an if construct that would have returned a vector with a single non-null entry and 0 for all other entries.

Closes issue #68