other three R scripts