In hwyneken/DGSPack: Data Guided Simulations

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(DGSPack)
print("hello world")
load("../data/riboflavin.RData")
#ls()
#print(getwd())
print(dim(ribo))
head(colnames(ribo))
class(ribo)
head(ribo[,1])
head(ribo[,1000])
ribo2 = matrix(as.numeric(ribo),nrow=dim(ribo)[1])
print(dim(ribo2))
colnames(ribo2) = colnames(ribo)
head(colnames(ribo2))
riboDF = as.data.frame(ribo2)
summary(riboDF$q_RIBFLV)

hist(riboDF$q_RIBFLV)

y = riboDF$q_RIBFLV
x = as.matrix(riboDF[,-1])
tryCEDGS = DGSPack::RunCEDGS_Normal(x=x,y=y)

hwyneken/DGSPack documentation built on May 18, 2020, 12:57 p.m.