examples edit

man/as.rsi.Rd

@@ -22,13 +22,7 @@ This transforms a vector to a new class \code{rsi}, which is an ordered factor w
 rsi_data <- as.rsi(c(rep("S", 474), rep("I", 36), rep("R", 370)))
 rsi_data <- as.rsi(c(rep("S", 474), rep("I", 36), rep("R", 370), "A", "B", "C"))
 is.rsi(rsi_data)
+
 plot(rsi_data)    # for percentages
 barplot(rsi_data) # for frequencies
-
-\donttest{
-library(dplyr)
-tbl \%>\%
-  mutate_at(vars(ends_with("_rsi")), as.rsi)
-sapply(mic_data, is.rsi)
-}
 }