add Test.R

add an test frame for this package