implemented the main insoections comand in R-script for inspection of
result