-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path.Rhistory
59 lines (59 loc) · 1.46 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
devtools::document()
library(RobustOmega)
?RobustOmega::covOGKmat
library(RobustOmega)
?RobustOmega::robQUIC
robQUIC(matrix(rnorm(100),20,5))
robQUIC(matrix(rnorm(100),20,5),covest = RobustOmega::covOGKmat)
robQUIC(matrix(rnorm(100),20,5),covest = RobustOmega::covOGKmat, CV = T)
robQUIC(matrix(rnorm(100),20,5),covest = RobustOmega::covOGKmat, CV = T, grids = 10)
View(robQUIC())
View(robQUIC)
robQUIC(matrix(rnorm(100),20,5),covest = RobustOmega::covOGKmat, CV = T, grids = 10)
mean_cv
cv_res
robQUIC(matrix(rnorm(100),20,5),covest = RobustOmega::covOGKmat, CV = T, grids = 10)
res
robQUIC(matrix(rnorm(100),20,5),covest = RobustOmega::covOGKmat, CV = T, grids = 10)
S
lambda
res
S_test
testset
robQUIC(matrix(rnorm(1000),200,5),covest = RobustOmega::covOGKmat, CV = T, grids = 10)
install.packages("glasso")
?glasso
??glasso
t
class(t)
?do.call
do.call("mean", args = list(c(1,2,3)))
library(RobustOmega)
example(robglasso)
library(RobustOmega)
example(robglasso)
example(cvglasso)
library(RobustOmega)
example(cvglasso)
ww <- example(cvglasso)
example("robglasso")
library(RobustOmega)
ww <- example(cvglasso)
ww <- example(cvglasso)
library(RobustOmega)
ww <- example(robglasso)
ww <- robglasso(matrix(rnorm(100),20,5),CV = T)
ww
ww <- robglasso(matrix(rnorm(1000),200,5),CV = T)
ww
dd <- (matrix(rnorm(1000),200,5))
ww <- robglasso(dd,CV = T)
ww
cov(dd)
dd <- (matrix(rnorm(100),20,5))
ww <- robglasso(dd,CV = T)
ww
cov(dd)
library(rstan)
install.packages("rstan")
install.packages("rstan")