R package test17