513 lines
11 KiB
R
Executable File
513 lines
11 KiB
R
Executable File
df = tibble(
|
|
a = c(1,4,3,7),
|
|
b = a + rnorm(4)
|
|
)
|
|
df
|
|
df %>%
|
|
pivot_longer(1:2, names_to = "var", values_to = "val")
|
|
df %>%
|
|
pivot_longer(1:2, names_to = "var", values_to = "val") %>%
|
|
ggplot(aes(y = val, color = var)) +
|
|
geom_point()
|
|
df %>%
|
|
pivot_longer(1:2, names_to = "var", values_to = "val") %>%
|
|
ggplot(aes(x = 1:4, y = val, color = var)) +
|
|
geom_point()
|
|
df %>%
|
|
pivot_longer(1:2, names_to = "var", values_to = "val") %>%
|
|
mutate(x = 1:n()) %>%
|
|
ggplot(aes(x = x, y = val, color = var)) +
|
|
geom_point()
|
|
set.seed(1)
|
|
df = tibble(
|
|
x = 1:4,
|
|
a = c(1,4,3,7),
|
|
b = a + rnorm(4)
|
|
)
|
|
df %>%
|
|
pivot_longer(-x, names_to = "var", values_to = "val") %>%
|
|
mutate(x = 1:n()) %>%
|
|
ggplot(aes(x = x, y = val, color = var)) +
|
|
geom_point()
|
|
df %>%
|
|
pivot_longer(-x, names_to = "var", values_to = "val") %>%
|
|
ggplot(aes(x = x, y = val, color = var)) +
|
|
geom_point()
|
|
?geom_ribbon
|
|
df %>%
|
|
pivot_longer(-x, names_to = "var", values_to = "val")
|
|
df %>%
|
|
pivot_longer(-x, names_to = "var", values_to = "val") %>%
|
|
ggplot(aes(x = x, y = val, color = var)) +
|
|
geom_point() +
|
|
geom_ribbon(ymin = min(val), ymax = max(val))
|
|
df %>%
|
|
pivot_longer(-x, names_to = "var", values_to = "val") %>%
|
|
ggplot(aes(x = x, y = val, color = var)) +
|
|
geom_point() +
|
|
geom_ribbon(aes(ymin = min(val), ymax = max(val)))
|
|
df %>%
|
|
pivot_longer(-x, names_to = "var", values_to = "val") %>%
|
|
ggplot(aes(x = x, y = val, color = var)) +
|
|
geom_point() +
|
|
geom_ribbon(aes(ymin = val, ymax = val))
|
|
df
|
|
df %>%
|
|
ggplot(aes(x = x)) +
|
|
geom_ribbon(aes(ymin = a, ymax = b))
|
|
df %>%
|
|
ggplot(aes(x = x)) +
|
|
geom_errorbar(aes(ymin = a, ymax = b))
|
|
df %>%
|
|
pivot_longer(-x, names_to = "var", values_to = "val")
|
|
df %>%
|
|
pivot_longer(-x, names_to = "var", values_to = "val") %>%
|
|
ggplot(aes(x = x, y = val)) +
|
|
geom_line()
|
|
df %>%
|
|
pivot_longer(-x, names_to = "var", values_to = "val") %>%
|
|
ggplot(aes(x = x, y = val, color = var)) +
|
|
geom_line()
|
|
df %>%
|
|
pivot_longer(-x, names_to = "var", values_to = "val") %>%
|
|
ggplot(aes(x = x, y = val, color = var)) +
|
|
geom_vline()
|
|
?kmeans
|
|
36170/1228
|
|
36170/1338
|
|
library(tidyverse)
|
|
install.packages("D:/gurobi950/win64/R/gurobi_9.5-0.zip", repos = NULL, type = "win.binary")
|
|
install.packages("slam")
|
|
library(gurobi)
|
|
library(gurobi)
|
|
model = list()
|
|
model$A = matrix(c(1,1,0,0,1,1), nrow = 2, byrow = TRUE)
|
|
model$obj = c(1,2,3)
|
|
model$modelsense = "max"
|
|
model$rhs = c(1,1)
|
|
model$sense = c("<=", "<=")
|
|
result = gurobi(model)
|
|
result$objval
|
|
?c_across
|
|
library(tidyverse)
|
|
?c_across
|
|
library(mlr3verse)
|
|
library(mlr3proba)
|
|
library(survival)
|
|
task = tsk("rats")
|
|
learner = lrn("surv.coxh")
|
|
learner = lrn("surv.coxph")
|
|
measure = msr("surv.hung_auc")
|
|
install.packages("survAUC")
|
|
measure = msr("surv.hung_auc")
|
|
pred = learner$train(task)$predict(task)
|
|
pred$score(measure)
|
|
measure = msr("surv.cindex")
|
|
pred$score(measure)
|
|
measure = msr("surv.hung_auc", times = 60)
|
|
pred$score(measure, task)
|
|
task$data()
|
|
pred$score(measure, task, row_ids = 1:270)
|
|
pred = learner$train(task, row_ids = 1:270)$predict(task, row_ids = 271:300)
|
|
pred$score(measure, task)
|
|
pred$score(measure, task, train_set = 1:270)
|
|
pred = learner$train(task)$predict(task)
|
|
pred$score(measure, task, train_set = 1:270)
|
|
?survAUC::AUC.hc()
|
|
learner = lrn("surv.coxph")
|
|
measure = msr("surv.hung_auc", times = 60)
|
|
pred = learner$train(task, row_ids = 1:270)$predict(task, row_ids = 271:300)
|
|
pred$score(measure, task, train_set = 1:270)
|
|
library(tidyverse)
|
|
?mean
|
|
df = tibble(
|
|
x = c(2,NA,5,7),
|
|
y = LETTERS[1:4],
|
|
z = c(5,6,NA,NA)
|
|
)
|
|
df
|
|
df %>%
|
|
mutate(across(where(is.numeric), ~ .x[is.na(.x)] = mean(.x, na.rm = TRUE)))
|
|
?replace_na
|
|
starwars %>%
|
|
mutate(across(where(is.numeric)), ~ replace_na(.x, mean(.x, na.rm = TRUE)))
|
|
starwars %>%
|
|
mutate(across(where(is.numeric), ~ replace_na(.x, mean(.x, na.rm = TRUE))))
|
|
library(tinytex)
|
|
pdflatex("mcmthesis.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex(mcmthesis-demo.tex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(timetk)
|
|
holidays <- tk_make_holiday_sequence(
|
|
start_date = "2013-01-01",
|
|
end_date = "2013-12-31",
|
|
calendar = "NYSE")
|
|
holidays
|
|
idx <- tk_make_weekday_sequence("2012",
|
|
remove_weekends = TRUE,
|
|
remove_holidays = TRUE, calendar = "NYSE")
|
|
idx
|
|
tk_get_timeseries_summary(idx)
|
|
idx <- tk_make_weekday_sequence("2012",
|
|
remove_weekends = TRUE,
|
|
remove_holidays = TRUE, calendar = "NYSE")
|
|
tk_get_timeseries_summary(idx)
|
|
tk_make_holiday_sequence("2012", calendar = "NYSE")
|
|
?tk_make_weekday_sequence
|
|
?slidify
|
|
FB <- FANG %>% filter(symbol == "FB")
|
|
library(tidyverse)
|
|
library(tidyquant)
|
|
FB <- FANG %>% filter(symbol == "FB")
|
|
mean_roll_5 <- slidify(mean, .period = 5, .align = "right")
|
|
FB %>%
|
|
mutate(rolling_mean_5 = mean_roll_5(adjusted))
|
|
as_mapper(~ .x ^ 2 + 1)
|
|
?roll_toslide
|
|
?roll_tos_lide
|
|
?roll_to_slide
|
|
?pslide
|
|
remove.packages("timetk")
|
|
install.packages("timetk")
|
|
install.packages("timetk")
|
|
idx <- tk_make_weekday_sequence("2012",
|
|
remove_weekends = TRUE,
|
|
remove_holidays = TRUE, calendar = "NYSE")
|
|
tk_get_timeseries_summary(idx)
|
|
library(timetk)
|
|
idx <- tk_make_weekday_sequence("2012",
|
|
remove_weekends = TRUE,
|
|
remove_holidays = TRUE, calendar = "NYSE")
|
|
tk_get_timeseries_summary(idx)
|
|
?tk_make_weekday_sequence
|
|
holidays <- tk_make_holiday_sequence(
|
|
start_date = "2016",
|
|
end_date = "2017",
|
|
calendar = "NYSE")
|
|
weekends <- tk_make_weekend_sequence(
|
|
start_date = "2016",
|
|
end_date = "2017")
|
|
holidays
|
|
weekends
|
|
weekends <- tk_make_weekend_sequence(
|
|
start_date = "2016-01-01",
|
|
end_date = "2017-12-31")
|
|
weekends
|
|
weekends <- tk_make_weekdays_sequence(
|
|
start_date = "2016-01-01",
|
|
end_date = "2017-12-31")
|
|
weekends <- tk_make_weekday_sequence(
|
|
start_date = "2016-01-01",
|
|
end_date = "2017-12-31")
|
|
weekends
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(lubridate)
|
|
begin = ymd_hm("2019-08-10 14:00")
|
|
end = ymd_hm("2020-03-05 18:15")
|
|
interval(begin, end)
|
|
begin %--% end
|
|
library(tinytex)
|
|
xelatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex("MCM-ICM_Summary.tex")
|
|
pdflatex("MCM-ICM_Summary.tex")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tidyverse)
|
|
df = tribble(
|
|
~A, ~B
|
|
北京, 上海
|
|
df = tribble(
|
|
~A, ~B,
|
|
北京, 上海
|
|
南京, 西安
|
|
df = tribble(
|
|
~A, ~B,
|
|
北京, 上海,
|
|
南京, 西安,
|
|
上海, 南京,
|
|
合肥, 沈阳,
|
|
上海, 北京,
|
|
上海, 南京,
|
|
西安, 南京,
|
|
天津, 广州)
|
|
?tribble
|
|
df = tribble(
|
|
~A, ~B,
|
|
北京, 上海,
|
|
南京, 西安,
|
|
上海, 南京,
|
|
合肥, 沈阳,
|
|
上海, 北京,
|
|
上海, 南京,
|
|
西安, 南京,
|
|
天津, 广州)
|
|
df = tribble(
|
|
~A, ~B,
|
|
"北京", "上海",
|
|
"南京", "西安",
|
|
"上海", "南京",
|
|
"合肥", "沈阳",
|
|
"上海", "北京",
|
|
"上海", "南京",
|
|
"西安", "南京",
|
|
"天津", "广州")
|
|
df
|
|
?distinct
|
|
library(sets)
|
|
install.packages("sets")
|
|
library(sets)
|
|
df %>%
|
|
mutate(C = set(A, B))
|
|
df = tibble(x = c(1:3,3:1,4), y = c(2,4,4,2,1,2,1))
|
|
library(tidyverse)
|
|
df = tibble(x = c(1:3,3:1,4), y = c(2,4,4,2,1,2,1))
|
|
df
|
|
library(tidyverse)
|
|
df = tibble(x = c(1:3,3:1,4), y = c(2,4,4,2,1,2,1))
|
|
df
|
|
f = function(...) {
|
|
dummy = rep(0, 4)
|
|
dummy[c(...)] = 1
|
|
dummy
|
|
}
|
|
df = tibble(x = c(1:3,3:1,NA), y = c(2,4,4,2,1,2,1))
|
|
df
|
|
f = function(...) {
|
|
dummy = rep(NA, 4)
|
|
dummy[c(...)] = 1
|
|
dummy
|
|
}
|
|
df %>%
|
|
mutate(z = pmap(., f)) %>%
|
|
unnest_wider(z, names_sep = "")
|
|
f = function(...) {
|
|
v = c(...)
|
|
dummy = ifelse(any(is.na(v)), rep(NA, 4), rep(0,4))
|
|
dummy[v] = 1
|
|
dummy
|
|
}
|
|
df %>%
|
|
mutate(z = pmap(., f)) %>%
|
|
unnest_wider(z, names_sep = "")
|
|
df
|
|
f = function(...) {
|
|
v = c(...)
|
|
dummy = ifelse(any(is.na(v)), rep(NA,4), rep(0,4))
|
|
dummy[v] = 1
|
|
dummy
|
|
}
|
|
df %>%
|
|
mutate(z = pmap(., f)) %>%
|
|
unnest_wider(z, names_sep = "")
|
|
v = c(NA, 1)
|
|
any(is.na(v))
|
|
dummy = rep(NA, 4)
|
|
dummy[v]
|
|
dummy[!is.na(v)]
|
|
vv
|
|
v
|
|
dummy[v] = 1
|
|
dummy
|
|
v = c(2,4)
|
|
any(is.na(v))
|
|
dummy = rep(0,4)
|
|
dummy
|
|
dummy[v] = 1
|
|
dummy
|
|
df
|
|
f(1,2)
|
|
f(1,NA)
|
|
f(c(1,2))
|
|
df
|
|
v = c(2,4)
|
|
dummy = ifelse(any(is.na(v)), rep(NA,4), rep(0,4))
|
|
dummy
|
|
any(is.na(v))
|
|
rep(0,4)
|
|
rep(NA,4)
|
|
is.na(v)
|
|
v = c(2.4)
|
|
v = c(2,4)
|
|
dummy = ifelse(any(is.na(v)), rep(NA,4), rep(0,4))
|
|
any(is.na(v))
|
|
ifelse(any(is.na(v)), rep(NA,4), rep(0,4))
|
|
ifelse(any(is.na(v)), rep(NA,4), rep(0,4))
|
|
if(any(is.na(v)) rep(NA,4)
|
|
if(any(is.na(v))) rep(NA,4)
|
|
else rep(0,4)
|
|
if(any(is.na(v))) dummy = rep(NA,4)
|
|
else dummy = rep(0,4)
|
|
if(any(is.na(v))) {
|
|
dummy = rep(NA,4)
|
|
} else {
|
|
dummy = rep(0,4)
|
|
}
|
|
f = function(...) {
|
|
v = c(...)
|
|
if(any(is.na(v))) {
|
|
dummy = rep(NA,4)
|
|
} else {
|
|
dummy = rep(0,4)
|
|
}
|
|
dummy[v] = 1
|
|
dummy
|
|
}
|
|
f(2,4)
|
|
f(1,2)
|
|
f(1,NA)
|
|
f(NA,4)
|
|
f = function(...) {
|
|
v = c(...)
|
|
if(any(is.na(v))) {
|
|
dummy = rep(NA,4)
|
|
} else {
|
|
dummy = rep(0,4)
|
|
}
|
|
dummy[v] = 1
|
|
dummy
|
|
}
|
|
df %>%
|
|
mutate(z = pmap(., f)) %>%
|
|
unnest_wider(z, names_sep = "")
|
|
f = function(...) {
|
|
v = c(...)
|
|
dummy = ifelse(any(is.na(v)), rep(NA,4), rep(0,4))
|
|
dummy[v] = 1
|
|
dummy
|
|
}
|
|
df %>%
|
|
mutate(z = pmap(., f)) %>%
|
|
unnest_wider(z, names_sep = "")
|
|
f = function(...) {
|
|
v = c(...)
|
|
dummy = ifelse(all(!is.na(v)), rep(0,4), rep(NA,4))
|
|
dummy[v] = 1
|
|
dummy
|
|
}
|
|
df %>%
|
|
mutate(z = pmap(., f)) %>%
|
|
unnest_wider(z, names_sep = "")
|
|
v = c(2,4)
|
|
ifelse(all(!is.na(v)), rep(0,4), rep(NA,4))
|
|
rep(0,4)
|
|
3827.64 / 600
|
|
(3827.64 - 800) * 0.2 * 0.7
|
|
(3827.64 - 423.87) / 600
|
|
5103.51 * 0.8 * 0.2 * 0.7
|
|
(5103.51 - 571.59) / 800
|
|
12758.78 * 0.8 * 0.2 * 0.7
|
|
(12758.78 - 1428.98) / 2000
|
|
df = tibble(x = c(1:3,3:1,NA), y = c(2,4,NA,2,1,2,1))
|
|
df
|
|
f = function(...) {
|
|
v = c(...)
|
|
if(any(is.na(v))) {
|
|
dummy = rep(NA,4)
|
|
} else {
|
|
dummy = rep(0,4)
|
|
}
|
|
dummy[v] = 1
|
|
dummy
|
|
}
|
|
df %>%
|
|
mutate(z = pmap(., f)) %>%
|
|
unnest_wider(z, names_sep = "")
|
|
df = tibble(x = c(1:3,3:1,NA), y = c(2,4,NA,2,1,2,NA))
|
|
df
|
|
f = function(...) {
|
|
v = c(...)
|
|
if(any(is.na(v))) {
|
|
dummy = rep(NA,4)
|
|
} else {
|
|
dummy = rep(0,4)
|
|
}
|
|
dummy[v] = 1
|
|
dummy
|
|
}
|
|
df %>%
|
|
mutate(z = pmap(., f)) %>%
|
|
unnest_wider(z, names_sep = "")
|
|
df
|
|
df %>%
|
|
mutate(z = pmap(., f)) %>%
|
|
unnest_wider(z, names_sep = "")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
3827.63 / 600
|
|
5.67 / 6.38
|
|
80000 * 0.8887147
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex")
|
|
pdflatex("mcmthesis-demo.tex", bib_engine = "biber")
|
|
pdflatex("mcmthesis-demo.tex", bib_engine = "biber")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex", bib_engine = "biber")
|
|
pdflatex("mcmthesis-demo.tex", bib_engine = "biber")
|
|
pdflatex("mcmthesis-demo.tex", bib_engine = "biber")
|
|
pdflatex("mcmthesis-demo.tex", bib_engine = "biber")
|
|
pdflatex("mcmthesis-demo.tex", bib_engine = "biber")
|
|
library(tinytex)
|
|
pdflatex("mcmthesis-demo.tex", bib_engine = "biber")
|