expand in R (suite)