Delete Fine-scale analysis example 2.R