latex

2026-01-20 03:45:15 +08:00
parent 101e8b7e8e
commit 1498209b0e
147 changed files with 13055 additions and 12 deletions
--- a/vscode/.Rhistory
+++ b/vscode/.Rhistory
@@ -0,0 +1,512 @@
+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")