ef80a4f59a
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9175 626c5289-ae23-0410-ae9c-e8d60b6d4f22
9 lines
No EOL
162 B
R
9 lines
No EOL
162 B
R
unittest <- function (x,y) {
|
|
if (x==y) print("PASS")
|
|
else print("FAIL")
|
|
}
|
|
|
|
unittesttol <- function(x,y,z) {
|
|
if (abs(x-y) < z) print("PASS")
|
|
else print("FAIL")
|
|
} |