0.0000554
0.0000554 < 1
methods
mth_symb
mtcars
?mtcars
?pdf
?mtcars
?mtcars
datf
datf <- data.frame(c(1:11), c(11:1))
datf[, 1][3]
warnings()
warnings()
all_fun.R
source(all_fun.R)
source("all_fun.R")
warnings()
source("all_fun.R")
warnings()
source("all_fun.R")
warnings()
source("all_fun.R")
warnings()
source("all_fun.R")
warnings()
source("all_fun.R")
source("all_fun.R")
?sort
source("all_fun.R")
lst
?seq
library("stringr")
?str_detect
str_detect(sttring="oui", pattern="u")
str_detect(string="oui", pattern="u")
grep(x="oui", pattern="u")
grep(x=c("oui", "non"), pattern="u")
grep(x=c("oui", "non", "oui"), pattern="u")
match(x=c("oui", "non", "oui"), pattern="u")
match(table=c("oui", "non", "oui"), pattern="u")
match(table=c("oui", "non", "oui"), x="u")
match(table=c("oui", "non", "oui"), x="oui")
lst
lst <- list(list(c(1:5), c(1:11)), list(c(1:56), c(1:3)))
lst
unlist(lst[1])
lst[1]
unlist(lst[1][2])
lst[1]
lst[1][2]
for (el in lst[1]){ print(el) }
lst[1]
unlist(lst)
lst
lst[1]
unlist(lst[1])
unlist(lst[2])
?append
for (el in lst[1]){ print(el) }
for (el in lst[1]){ print(unlist(el)) }
for (el in lst[1]){ print(el) }
for (el in lst[1]){ print(as.vector(el)) }
for (el in lst[1]){ print(as.vector(el)) }
for (el in lst[1]){ print(as.vectorel) }
for (el in lst[1]){ print(el) }
vec <- c()
for (el in lst[1]){ c(vec, el, "-") }
for (el in lst[1]){ vec2 <- c(vec, el, "-") }
vec2
for (el in lst){ vec2 <- c(vec, el, "-") }
vec2
lst
lst[1]
lst[1]
lst1 <- lst[1]
lst1
unlist(lst1)
lst1
lst1[1][2]
lst1[1][1]
unlist(lst1)
lst1
length(lst1)
length(lst1[1])
length(lst1[1][1])
lst
lst[1]
lst[2]
unlist(lst[1])
unlist(lst[2])
lst
lst[5]
lst[3]
vec1 <- c(list(c(1:23), c(4:8)), list(c(1:6)))
vec1
vec1[1]
vec1[2]
vec1[3]
unlist(vec1[1])
unlist(vec1[2])
unlist(c(1, 2))
lst
lst[1]
unlist(lst[1])
unlist(lst[2])
vec1
vec1[3]
class(vec1[3])
vec1
vec1 <- append(x=vec1, values=",", after=2)
vec1
?grep
grep(x=vec1, pattern=",")
vec1
grep(x=vec1, pattern=2)
grep(x=vec1, pattern=256)
grep(x=vec1, pattern=c(1:23))
match(x=vec1, pattern=2)
match(table=vec1, x=2)
grep(x=vec1, pattern=c(1:23))
grep(x=vec1, pattern=256)
grep(x=vec1, pattern=",")
vec1 <- c(vec1, ",")
grep(x=vec1, pattern=",")
vec1
vec1[5] <- "sdd"
vec1
class(vec1[5])
lstd <- list
lstd <- append(x=lstd, values=vec1[5])
lstd
lstd <- append(x=lstd, values=vec1[2])
lstd
pre_grep
grep(x=c("?", "ee", "-", "esdd"), pattern="-")
?grep
grep(x=c("?", "-ee", "-", "esdd"), pattern="-")
grepl(x=c("?", "-ee", "-", "esdd"), pattern="-")
grepl(x=c("?", "-ee", "-", "esdd"), pattern="[-]")
unlist(4)
library("stringr")
?str_detect
?grep
?grep
grep(x=c("zez", "(", "dfdsd)"), pattern="(")
grep(x=c("zez", "(", "dfdsd)"), pattern="\(")
grep(x=c("zez", "(", "dfdsd)"), pattern="\\(")
vec
vec <- c(1:33)
vec
vec[c(1:5)]
vec[c(1:5, -2)]
vec[c(1:5)][-2]
is.null()
is.null()
is.null(NULL)
length(c())
is.null(c())
vec 
vec[-c()]
vec
vec[1:4] <- -4
vec
vec
metch(7, vec)
match(7, vec)
match(7, vec[-c(1, 3*)])
match(7, vec[-c(1, 3)])
match(7, vec[5:11])
vec
vec[c(1:5)] <- vec[c(1:5)] - 6
vec
vec[c(1:7)] <- vec[c(1:7)] - 6
vec[c(1:8)] <- vec[c(1:8)] - 6
vec[c(1:8)][-c(2, 4)] <- vec[c(1:8)][-c(2, 4)] - 6
vec
vec[c(1:8)][c(2, 4)] <- c(5, 8)
vec
vec[1:8][c(2, 4)] <- c(5, 8)
vec[1:8][c(2, 4)] <- c(5, 8, NA)
ùpar
par
library("stringr")
?str_detect
?grep
agn
?grep
grep("4", vec)
grep("4", c(3))
identical(grep("4", c(3)), integer(0))
for (el in c("ee", "zz")){ print(el) }
identical(c(1, 3), INTEGER(0))
identical(c(1, 3), integer(0))
log
nb_v
ln
exp
exp(2)
factorial
factorial(3)
factorial(4)
grep(x=c("1", "^", "dsf"), pattern="^")
grep(x=c("1", "^", "dsf"), pattern="\\^")
grep(x=c("1", "*", "dsf"), pattern="\\*")
grep(x=c("1", "/", "dsf"), pattern="\\/")
grep(x=c("1", "+", "dsf"), pattern="+")
grep(x=c("1", "+", "dsf"), pattern="\\+")
grep(x=c("1", "+", "dsf"), pattern="\\-")
grep(x=c("1", "-", "dsf"), pattern="-")
grep(x=c("1", "-", "dsf"), pattern="\\-")
grep(x=c("1", "-", "dsf"), pattern="\\-")
match(x="ee", table=c(1))
match(x="ee", table=c(1, 2))
match(x="ee", table=c(1, "ee", 2))
?sort
vec
vec[-c(3, 2)]
vec[-c(2, 3)]
4 %/% 2
4 %% 2
match(x=")", table=c(1, 2, ")"))
match(x=")", table=c(1, 2, ")sds"))
lst
ptrn
grep(pattern="[", x=c("["))
grep(pattern="\\[", x=c("["))
grep(pattern="\\{", x=c("["))
grep(pattern="\\{", x=c("[", "{"))
grep(pattern="\\-", x=c("[", "{", "-"))
grep(pattern="\\+", x=c("[", "{", "-", "+"))
grep(pattern="\\_", x=c("[", "{", "-", "+", "_"))
grep(pattern="\\e", x=c("[", "{", "-", "+", "_", "z"))
grep(pattern="\\e", x=c("[", "{", "-", "+", "_", "e"))
grep(pattern="\\\^", x=c("[", "{", "-", "+", "_", "\"))
grep(pattern="\\\", x=c("[", "{", "-", "+", "_", "\"))
grep(pattern="\", x=c("[", "{", "-", "+", "_", "\"))
grep(pattern="\\", x=c("[", "{", "-", "+", "_", "\"))
grep(pattern="\\[", x=c("[", "{", "-", "+", "_", "\"))
grep(pattern="\\e", x=c("[", "{", "-", "+", "_", "e"))
grep(pattern="\\.", x=c("[", "{", "-", "+", "_", "."))
grep(pattern="\\/", x=c("[", "{", "-", "+", "_", ".", "/"))
grep(pattern="\\%", x=c("[", "{", "-", "+", "_", ".", "/", "%"))
grep(pattern="\\*", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "&"))
grep(pattern=";", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", ";"))
grep(pattern="\\&", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "&"))
grep(pattern="&", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^"))
grep(pattern="^", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^"))
grep(pattern="\\^", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "&"))
grep(pattern="\\$", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "&"))
grep(pattern="\\&", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "="))
grep(pattern="&", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "&"))
grep(pattern="=", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?"))
grep(pattern="?", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?"))
grep(pattern="\\?", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?"))
grep(pattern="\\#", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\"))
grep(pattern="#", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\"))
grep(pattern="\\\\", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\"))
grep(pattern="#", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\"))
grep(pattern="\\l", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\\\"))
grep(pattern="\\\", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\\\"))
grep(pattern="\\\", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\\"))
grep(pattern="\\\", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "s"))
grep(pattern="\\dd", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "s"))
grep(pattern="\\dd", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\\"))
grep(pattern="\\dd", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\\\"))
grep(pattern="\\dd", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\\\\"))
grep(pattern="\\\\", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\\\\\"))
grep(pattern="\\\\\", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\\\\\\\\"))
grep(pattern="\\\\\\\\", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\\\\\\\\\\\\"))
grep(pattern="\\\\\\\\\\\\", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\\\\\\\\\\\"))
grep(pattern="\\\\\\\\\\\\", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\\\\\\\\\\\"))
grep(pattern="\\\\\\\\", x=c("[", "{", "-", "+", "_", ".", "/", "%", "*", "^", "?", "\\\\\\\\\\\\"))
librazry("stringr")
library("stringr")
?str_detect
str_detect(string="lkkjhj", pattern="/")
str_detect(string="lk/", pattern="/")
str_detect(string="lk/", pattern="^/$")
str_detect(string="lk/", pattern="/$")
str_detect(string="lk/jh", pattern="/$")
str_locate(string="lk/jh", pattern="^/$")
str_locate(string="lk/jh", pattern="/")
str_locate(string="l//k/jh", pattern="/")
?str_locate
str_locate_all(string="l//k/jh", pattern="/")
is.na(data.frame(c(NA), c(NA)))
library("edm1")
install_github
?install_github
install.packages("devtool")
install.packages("devtools")
library("devtools")
install.packages("later")
install.packages("later")
install.packages("miniUI")
install.packages("promises")
install.packages("httpuv")
install.packages("")
library("edm1")
fillr(c("sdfs", "...1"))
fillr(c("sdfs", "...0"))
for (i in c()} {print("ee")}
for (i in c(8)} {print("ee")}
for (i in c()) {print("ee")}
for (i in c()) {print("ee")}
"\\\\" == "\\\\"
"\\\\" == "\"
"\" == "\"
match(x="\\\\", table=c("\\\\"))
match(x="\\\\", table=c("\"))
?gsub
?gsub
gsub(x="\\\\\\\\", pattern="\\\\", value="l")
?gsub
gsub(x="\\\\\\\\", pattern="\\\\", value="l")
?gsub
gsub("\\", "\\\\", "\\", fixed=TRUE)
gsub("\\", "\\\\", "\\")
gsub("\\", "\\\\", ignore.case="\\", fixed=TRUE)
gsub("\\", "\\\\", "\\")
gsub("oui", "u", "lm")
gsub("oui", "", "lm")
gsub("oui", "lm", "lm")
gsub("u", "lm", "oui")
gsub(pattern="u", "lm", "oui")
gsub(pattern="u", "lm", x="oui")
gsub(pattern="u", replacement="lm", x="oui")
gsub(pattern="u", replacement="lm", x="oui")
gsub(pattern="u", replacement="lm", x="oui")
gsub(pattern="u", replacement="lm", x="oui")
vec
vec <- append(x=vec, values=c(1, 3), after=1)
vec <- append(x=vec, values=c(1, 3), after=c(5, 9))
vec <- append(x=vec, values=c(1, 3), after=0)
vec
vec <- append(x=vec, values=c("\\\\"), after=0)
vec
vec <- append(x=vec, values=c("\\"), after=0)
vec
unlist(strsplit(x="dfdf.df", split=""))
is.na(c(3, 2, NA, 5))
"\\)" == ")"
?grepl
grepl(pattern="(", x=c("("))
grepl(pattern="\\(", x=c("("))
grepl(pattern="\\(", x=c("("))
ptrn
ptrn <- "\\("
grepl(pattern=ptrn, x=c("("))
vec[444]
factorial(-6)
factorial(6)
factorial((-6))
?factorial
vec
vec[3] <- "+"
vec
match(x=5, table=c(1))
vec
vec[3:length(vec)][-c(1, 6)]
vec[3:length(vec)][-c(1:6)]
vec[-NULL]
vec[-c()]
is.na(5)
match(x="^", table=c("^"))
match(x="^", table=c(1, "^"))
factorial(11)
?log
ln
log(2)
!FALSE == TRUE
library("stringr")
?gsub
gsub(pattern="R", relacement="r", x="bonjouR")
gsub(pattern="R", replacement="r", x="bonjouR")
library("stringr")
gsub(pattern="imp", replacement=4, x="dfff-imp")
library("stringr")
?gsub
sub(pattern="imp", replacement=4, x="dfff-imp")
sub(pattern="imp", replacement=4, x="dfff-imp")
gsub(pattern="imp", replacement=4, x="dfff-imp")
gsub(pattern="imp", replacement=4, x="dfff-imp")
gsub(pattern="imp", replacement=4, x="dfff-imp")
sub(pattern="imp", replacement=4, x="dfff-imp")
sub(pattern="=m", replacement=4, x="dfmf-imp")
sub(pattern="m", replacement=4, x="dfmf-imp")
gsub(pattern="m", replacement=4, x="dfmf-imp")
gsub(pattern="m", replacement=4, x="dfmf-imp")
vec
vec[1:0]
?step
?seq
library("devtools")
document()
document()
document()
library("devtools")
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
document()
library("devtools")
document()
document()
roxygen2::roxygenise
roxygen2::roxygenise()
roxygen2::roxygenise(".")
roxygen2::roxygenise("/..")
roxygen2::roxygenise("..")
build()
install()
library("Rmach")
?poly_model
?best_model
?poly_model
