+install.packages("shock")
+library("shock", lib.loc="~/R/x86_64-pc-linux-gnu-library/3.3")
+source('~/Dropbox/GLLiM-shock/code prediction intervals/IC inverse intercept.R')
+mean(res[1,])
+source('~/Dropbox/GLLiM-shock/code prediction intervals/IC inverse intercept.R')
+mean(res[1,])
+&e-2
+1e-2
+library("devtools", lib.loc="~/R/x86_64-pc-linux-gnu-library/3.3")
+library("roxygen2", lib.loc="~/R/x86_64-pc-linux-gnu-library/3.3")
+setwd("~/valse")
+document()
+document()
+document()
+document()
+document()
+document()
+document()
+document()
+setwd("~/")
+document()
+setwd("~/valse")
+document()
+setwd("~/")
+install('valse')
+install('valse')
+?valse
+install("valse")
+?kmeans
+x = rnorm(50)
+kmeans(x)
+library("mclust", lib.loc="~/R/x86_64-pc-linux-gnu-library/3.3")
+install.packages("Rmixmod")
+A = matrix(0,dim = c(2,3))
+A = matrix(0,dim = c(2,3))
+A = matrix(0,ncol=3,nrow=2
+)
+dim(A)
+dim(A)[1]
+mclust(x)
+Mclust(x)
+x
+A
+B = matrix(2,nrow=2,ncol=2)
+matrix(c(A,B))
+matrix(c(A,B),nrow=2)
+C =matrix(c(A,B),nrow=2)
+Mclust(C,k=2)
+Mclust(C)
+Mclust(A)
+A
+Mclust(x)
+Mclust(x,2)
+class = Mclust(x,2)
+names(class)
+class$classification
+generateI0default(10,5,5,2)
+setwd("~/valse/R")
+generateI0default(10,5,5,2)
+generateIOdefault(10,5,5,2)
+source('~/valse/R/generateIOdefault.R', echo=TRUE)
+generateIOdefault(10,5,5,2)
+source('~/valse/R/generateIO.R', echo=TRUE)
+generateIOdefault(10,5,5,2)
+source('~/valse/R/generateIOdefault.R', echo=TRUE)
+generateIOdefault(10,5,5,2)
+source('~/valse/R/generateIO.R', echo=TRUE)
+generateIOdefault(10,5,5,2)
+source('~/valse/R/generateIO.R', echo=TRUE)
+generateIOdefault(10,5,5,2)
+source('~/valse/R/generateIO.R', echo=TRUE)
+generateIOdefault(10,5,5,2)
+source('~/valse/R/generateIOdefault.R', echo=TRUE)
+generateIOdefault(10,5,5,2)
+source('~/valse/R/generateIO.R', echo=TRUE)
+generateIOdefault(10,5,5,2)
+source('~/valse/R/generateIO.R', echo=TRUE)
+generateIOdefault(10,5,5,2)
+source('~/valse/R/generateIOdefault.R', echo=TRUE)
+A = generateIOdefault(10,5,5,2)
+source('~/valse/R/generateIO.R', echo=TRUE)
+A = generateIOdefault(10,5,5,2)
+A
+A = generateIOdefault(10,5,6,2)
+A
+Mclust(A$Y)
+library("mclust", lib.loc="~/R/x86_64-pc-linux-gnu-library/3.3")
+Mclust(A$Y)
+X = A$X
+Y = A$Y
+X
+Y
+save(X,Y,file="data.RData")
+load("~/valse/R/data.RData")