Some R-programs