How to filter out negative data in R

$Data4

-4 0 1 4

1 3 4 1

I would like to filter out -4 and 4 from the table function. Any idea ? the "table function" showed the frequency the number occurred and the number itself. Bottom = occurrence, top = number