Update usefullfunctions.R