cut with R