This is in R. Please attach the screenshot of Rstudio. Thanks.

Look at the data set created below.

temp <- datasets::islands

df <- data.frame(island = names(temp), area = temp, row.names=NULL)

1) Provide appropriate graphical and numerical summaries for the "area".

2) The data look to be leptokurtic. Create a code that removes some rows from the data frame to push kurtosis down and make data mesokurtic.

3) Provide appropriate graphical and numerical summaries for the "area" # in the updated data set.