Fixed R CMD CHECK