Abalone summary

abalone <- read.csv("Abalone.csv")
weights <- subset(abalone, select = c("gender",
                        colnames(abalone)[grep("weight", colnames(abalone))])
				)
weights <-  within(weights, {
  sum_weight <- shell_weight + gut_weight + meat_weight
  Ploss <- (total_weight - sum_weight) / total_weight
})
weights_clean <- subset(weights, subset = Ploss > 0)

You can submit as many times as you like. Only your latest submission will be taken into account.