i. Create a data frame from sic.100 using the command df <- data.frame(sic.100$coords, data = sic.100$data) Create a SpatialPointsDataFrame from df. (0.5 mark) j. Assume an anisotropic exponential model. Apply the likfit function with coords =coordinates(df) and data =df$data and the initial values ini = c(1000,10) and nug = 10000 Based on the obtained results, is this model isotropic? Justify your answer. (1 mark) k. Produce a 2D variogram plot for the model data ~ 1 with cutoff = 200 and width = 10 (0.5 mark)