[R-br] Grupo de geoestatistica - script s100