Update testhmwrk.R

Attempt 2