add handwriting with R