Commit b1b02d27 authored by Gael  MILLOT's avatar Gael MILLOT
Browse files

examples modified

parent 5d534d6b
...@@ -131,6 +131,7 @@ Check for updated versions (most recent tags) at https://gitlab.pasteur.fr/gmill ...@@ -131,6 +131,7 @@ Check for updated versions (most recent tags) at https://gitlab.pasteur.fr/gmill
## v6.0.0 ## v6.0.0
1) name of functions changed: 1) name of functions changed:
fun_object_info() fun_info()
fun_rounding() fun_round() fun_rounding() fun_round()
fun_hexa_hsv_color_matrix() fun_num2color_mat() fun_hexa_hsv_color_matrix() fun_num2color_mat()
fun_graph_param_prior_plot() fun_prior_plot() fun_graph_param_prior_plot() fun_prior_plot()
......
...@@ -22,7 +22,7 @@ ...@@ -22,7 +22,7 @@
   
################ Object analysis 2 ################ Object analysis 2
######## fun_param_check() #### check class, type, length, etc., of objects 2 ######## fun_param_check() #### check class, type, length, etc., of objects 2
######## fun_object_info() #### recover object information 8 ######## fun_info() #### recover object information 8
######## fun_1D_comp() #### comparison of two 1D datasets (vectors, factors, 1D tables) 9 ######## fun_1D_comp() #### comparison of two 1D datasets (vectors, factors, 1D tables) 9
######## fun_2D_comp() #### comparison of two 2D datasets (row & col names, dimensions, etc.) 13 ######## fun_2D_comp() #### comparison of two 2D datasets (row & col names, dimensions, etc.) 13
######## fun_2D_head() #### head of the left or right of big 2D objects 20 ######## fun_2D_head() #### head of the left or right of big 2D objects 20
...@@ -333,24 +333,24 @@ return(output) ...@@ -333,24 +333,24 @@ return(output)
} }
   
   
######## fun_object_info() #### recover object information ######## fun_info() #### recover object information
   
   
# Check OK: clear to go Apollo # Check OK: clear to go Apollo
fun_object_info <- function(data){ fun_info <- function(data){
# AIM # AIM
# provide a full description of the object # provide a full description of an object
# REQUIRED FUNCTIONS FROM CUTE_LITTLE_R_FUNCTION # REQUIRED FUNCTIONS FROM CUTE_LITTLE_R_FUNCTION
# none # none
# ARGUMENTS # ARGUMENTS
# data: object to test # data: object to test
# RETURN # RETURN
# a list containing the info # a list containing the info
# please, use names(fun_object_info()) and remove what can be too big for easy analysis # please, use names(fun_info()) and remove what can be too big for easy analysis
# EXAMPLES # EXAMPLES
# fun_object_info(data = 1:3) # fun_info(data = 1:3)
# fun_object_info(data.frame(a = 1:2, b = ordered(factor(c("A", "B"))))) # fun_info(data.frame(a = 1:2, b = ordered(factor(c("A", "B")))))
# fun_object_info(list(a = 1:3, b = ordered(factor(c("A", "B"))))) # fun_info(list(a = 1:3, b = ordered(factor(c("A", "B")))))
# DEBUGGING # DEBUGGING
# data = NULL # for function debugging # data = NULL # for function debugging
# data = 1:3 # for function debugging # data = 1:3 # for function debugging
...@@ -7252,7 +7252,7 @@ tempo.gg.name <- "gg.indiv.plot." ...@@ -7252,7 +7252,7 @@ tempo.gg.name <- "gg.indiv.plot."
tempo.gg.count <- 0 tempo.gg.count <- 0
# no need loop part # no need loop part
assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::ggplot()) assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::ggplot())
assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::geom_text(data = data.frame(x = 1, y = 1), aes(x = x, y = y, label = text))) assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::geom_text(data = data.frame(x = 1, y = 1), ggplot2::aes(x = x, y = y, label = text)))
assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::ggtitle(title)) assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::ggtitle(title))
assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::theme_void()) assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::theme_void())
suppressWarnings(print(eval(parse(text = paste(paste0(tempo.gg.name, 1:tempo.gg.count), collapse = " + "))))) suppressWarnings(print(eval(parse(text = paste(paste0(tempo.gg.name, 1:tempo.gg.count), collapse = " + ")))))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment