Commit b8738deb authored by Gael's avatar Gael
Browse files

tempo

parent 1ecbdfa4
......@@ -6,20 +6,20 @@
vec1 <- -1:3 # vector of integers
vec2 <- 1:3 / 3 # vector of proportions
vec3 <- c(1, 2, 3) # vector of integers but stored as "double"
vec4 <- "pearson"
vec5 <- c("a", "b","a", "b")
vec4 <- "pearson" # vector of characters
vec5 <- c("a", "b","a", "b") # vector of characters
mat1 <- matrix(vec1) # matrix of integers
mat2 <- matrix(c(1:3 / 3, NA)) # matrix of proportions with NA
### Datasets info
vec1
vec2
vec3
vec4
vec5
mat1
mat2
vec1 # vector of integers
vec2 # vector of proportions
vec3 # vector of integers but stored as "double"
vec4 # vector of characters
vec5 # vector of characters
mat1 # matrix of integers
mat2 # matrix of proportions with NA
### Simple examples
......@@ -149,3 +149,55 @@ fun_check(
)
######## fun_info() #### recover object information
### Datasets
vec1 <- -1:3 # vector of integers
vec2 <- 1:3 / 3 # vector of proportions
vec3 <- c(1, 2, NA) # vector of integers but stored as "double", with NA
vec4 <- "pearson" # vector of characters
vec5 <- c("a", "b","a", NA) # vector of characters with NA
mat1 <- matrix(vec1) # 1D matrix of integers
mat2 <- matrix(c(1:5, NA), ncol = 2, dimnames = list(c("ROW1", "ROW2", "ROW3"), c("M1", "M2"))) # 2D matrix of floats with NA
df1 <- as.data.frame(mat2) # data.frame
l1 <- list(L1 = 1:3, L2 = letters[1:3]) # list
fac1 <- factor(rep(letters[4:6], c(4:6))) # factor
tab1 <- table(fac1) # 1D table
tab2 <- table(fac1, fac1) # 2D table
fun1 <- mean # function
### Datasets info
vec1 # vector of integers
vec2 # vector of proportions
vec3 # vector of integers but stored as "double", with NA
vec4 # vector of characters
vec5 # vector of characters with NA
mat1 # 1D matrix of integers
mat2 # 2D matrix of floats with NA
df1 # data.frame
l1 # list
fac1 # factor
tab1 # 1D table
tab2 # 2D table
fun1 # function
### Simple example
fun_info(data = 1:3) # vector of integers
fun_info(data = matrix("a")) # matrix of character
fun_info(data = data.frame(C1 = 1:3, C2 = letters[1:3])) # data frame
fun_info(data = list(L1 = 1:3, L2 = letters[1:3])) # data frame
fun_info(data = factor(rep(letters[1:3], 3))) # factor
fun_info(data = table(factor(rep(letters[1:3], 3)))) # table
### All the arguments
fun_check(
data ,
n = 20, # number of element to display per compartment of the output list (i.e., head(..., n))
full = FALSE, # Return the full information?
warn.print = TRUE
)
\ No newline at end of file
......@@ -271,7 +271,66 @@ fun_open(pdf = FALSE)
gridExtra::grid.arrange(res2$gtable[1,2])
### All the arguments
fun_gg_boxplot(
data1 = obs1,
y = "Time",
categ = "Categ1",
categ.class.order = NULL,
categ.color = NULL,
box.legend.name = NULL,
box.fill = FALSE,
box.width = 0.5,
box.space = 0.1,
box.line.size = 0.75,
box.notch = FALSE,
box.alpha = 1,
box.mean = TRUE,
box.whisker.kind = "std",
box.whisker.width = 0,
dot.color = grey(0.25),
dot.categ = NULL,
dot.categ.class.order = NULL,
dot.legend.name = NULL,
dot.tidy = FALSE,
dot.tidy.bin.nb = 50,
dot.jitter = 0.5,
dot.seed = 2,
dot.size = 3,
dot.alpha = 0.5,
dot.border.size = 0.5,
dot.border.color = NULL,
x.lab = NULL,
x.angle = 0,
y.lab = NULL,
y.lim = NULL,
y.log = "no",
y.tick.nb = NULL,
y.second.tick.nb = 1,
y.include.zero = FALSE,
y.top.extra.margin = 0.05,
y.bottom.extra.margin = 0.05,
stat.disp = "top",
stat.disp.mean = FALSE,
stat.size = 4,
stat.dist = 5,
stat.angle = 0,
vertical = TRUE,
text.size = 12,
title = "",
title.text.size = 8,
legend.show = TRUE,
legend.width = 0.5,
article = TRUE,
grid = FALSE,
add = NULL,
return = FALSE,
return.ggplot = FALSE,
return.gtable = TRUE,
plot = TRUE,
warn.print = FALSE,
lib.path = NULL
)
......
......@@ -420,7 +420,60 @@ gridExtra::grid.arrange(res2$gtable[1,2])
### All the arguments
fun_gg_scatter(
data1 = obs1,
x = "Km",
y = "Time",
categ = NULL,
categ.class.order = NULL,
color = NULL,
geom = "geom_point",
geom.step.dir = "hv",
alpha = 0.5,
dot.size = 2,
dot.shape = 21,
dot.border.size = 0.5,
dot.border.color = NULL,
line.size = 0.5,
line.type = "solid",
x.lim = NULL,
x.lab = NULL,
x.log = "no",
x.tick.nb = NULL,
x.second.tick.nb = NULL,
x.include.zero = FALSE,
x.left.extra.margin = 0.05,
x.right.extra.margin = 0.05,
x.text.angle = 0,
y.lim = NULL,
y.lab = NULL,
y.log = "no",
y.tick.nb = NULL,
y.second.tick.nb = NULL,
y.include.zero = FALSE,
y.top.extra.margin = 0.05,
y.bottom.extra.margin = 0.05,
y.text.angle = 0,
raster = FALSE,
raster.ratio = 1,
raster.threshold = NULL,
text.size = 12,
title = "",
title.text.size = 12,
legend.show = TRUE,
legend.width = 0.5,
legend.name = NULL,
article = TRUE,
grid = FALSE,
add = NULL,
return = FALSE,
return.ggplot = FALSE,
return.gtable = TRUE,
plot = TRUE,
warn.print = FALSE,
lib.path = NULL
)
......
No preview for this file type
No preview for this file type
Markdown is supported
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