more examples

R/radviz.R

@@ -10,6 +10,8 @@
 #' @param width,height height & width of the widget
 #' @export
 #' @examples
+#' # motor vehicles
+#'
 #' mtcars_1 <- dplyr::add_rownames(mtcars, var="car")
 #'
 #' radviz(mtcars_1, diameter=600, margin=100,
@@ -19,6 +21,18 @@
 #'                    "qsec", "vs", "am", "gear", "carb")) %>%
 #'   add_color("cyl") %>%
 #'   add_tooltip("function(d) { return d.car; }")
+#'
+#' # motor vehicles deaths
+#'
+#' cardeaths <- data.frame(as.matrix(Seatbelts),
+#'                         year=substring(zoo::as.yearmon(time(Seatbelts)), 5, 7))
+#'
+#' radviz(cardeaths, diameter=600, margin=100,
+#'        use_repulsion=FALSE, draw_links=FALSE,
+#'        width=600, height=500) %>%
+#'   add_dimensions(c("DriversKilled", "PetrolPrice", "VanKilled")) %>%
+#'   add_color("year") %>%
+#'   add_tooltip("function(d){ return d.year; }")
 radviz <- function(data,
                    draw_links=TRUE,
                    zoom_factor=1,