closed embedded R