# NOT RUN {
# Input the names and the masses of tubes from the keyboard
rotorUnequal(30)
liver
10.05
gill
9.68
muscle
9.88
# Prepare the masses of tubes before calling the function
samples <- round(rnorm(19, mean = 10, sd = 0.5), 2)
rotorUnequal(30, samples)
# Prepare the masses and the names of tubes before calling the function
small.samples <- c(10.05, 9.68, 9.88)
names(small.samples) <- c("liver", "gill", "muscle")
rotorUnequal(30, small.samples)
# }
Run the code above in your browser using DataLab