# NOT RUN {
DF1 <- Fluid[Fluid$kilovolts == "34kV", ]
DF1
# OR
DF2 <- subset(Fluid, subset = kilovolts == "34kV")
DF2
stem(DF2$time)
SIGN.test(DF2$time)
# }
# NOT RUN {
library(dplyr)
DF3 <- dplyr::filter(Fluid, kilovolts == "34kV")
DF3
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab