This repository has been archived by the owner on May 23, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
83 lines (83 loc) · 2.15 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
install.packages("ggiraph")
q95 <- 2.5
q5 <- 0.8
sigma <- (q95-q5) / (2 * qnorm(0.95))
mu = q95 - sigma * qnorm(0.95)
q66 <- mu + sigma * qnorm(0.66)
q66
q67
?qnorm
install.packages("esquisse")
esquisse:::esquisser()
install.packages("questionr")
questionr:::irec()
data(iris)
data(stats)
iris
questionr:::irec()
questionr:::irec()
str(iris)
questionr:::irec()
questionr:::irec()
questionr:::iorder()
questionr:::irec()
questionr:::irec()
questionr:::iorder()
install.packages("remedy")
remove.packages("remedy")
install.packages('addinslist')
library(tidyverse)
library("nleqslv")
install.packages("nleqslv")
data.frame(emission = 2800, t = 0:32, reduction = 2800*0.016)
# logarithmic time factor
fun <- function(x){
dat <- data.frame(emission = 2800, t = 0:32, reduction = 2800*0.016)
for(i in 2:33){
dat$reduction[i] <- dat$reduction[i-1]-log(dat$t[i])*x[1] -x[2]
}
dat$emission = dat$emission- cumsum(dat$reduction)
ret <- numeric(2)
ret[1] <- dat$emission[33]
ret[2] <- sum(dat$emission) - 43000
return(ret)
}
# opt_x <- nleqslv(0, fun)
xstart <- matrix(runif(50, min=-0.3, max=0.3),ncol=2)
xstart
?runif
opt_x <- searchZeros(xstart, fun, method="Broyden",global="dbldog")
??searchZeros
library("nleqslv")
opt_x <- searchZeros(xstart, fun, method="Broyden",global="dbldog")
opt_y
opt_x
# check
dat <- data.frame(emission = 2800, t = 0:32, reduction = 2800*0.016)
for(i in 2:33){
dat$reduction[i] <- dat$reduction[i-1]-log(dat$t[i])*opt_x[[1]][1] - opt_x[[1]][2]
}
dat$emission = dat$emission- cumsum(dat$reduction)
plot(dat$emission)
dat
library(pdftools)
pdf_combine(c("../daniel/Schreibtisch/Bewerbungsunterlagen/Arbeitsvertrag_Annette.pdf", "Schreibtisch/Bewerbungsunterlagen/scan.pdf"), output = "Arbeitsvertrag_Abraham.pdf")
pdf_combine(c("../daniel/Schreibtisch/Bewerbungsunterlagen/Arbeitsvertrag_Annette.pdf", "Schreibtisch/Bewerbungsunterlagen/scan.pdf"), output = "Arbeitsvertrag_Abraham.pdf")
shiny::runApp('Schreibtisch/Projekte/sbti')
runApp('Schreibtisch/Projekte/sbti')
shiny::runApp('Schreibtisch/Projekte/sbti')
shiny::runApp()
shiny::runApp()
runApp()
runApp()
runApp()
shiny::runApp()
shiny::runApp()
runApp()
runApp()
runApp()
runApp()
runApp()
runApp()
runApp()
runApp()