funtion to write little R reports "write_obs" added