added part of R interface (not working)