## r script UUID: 413023

dscrutils:::empty_text(c("dsc_result/mean/normal_1_mean_1.stdout", "dsc_result/mean/normal_1_mean_1.stderr"))
DSC_35111F31 <- readRDS("dsc_result/normal/normal_1.rds")
DSC_REPLICATE <- DSC_35111F31$DSC_DEBUG$replicate
x <- DSC_35111F31$data
TIC_35111F31 <- proc.time()
set.seed(DSC_REPLICATE + 413023)

## BEGIN DSC CORE
y <- "meow"
## END DSC CORE

saveRDS(list(est_mean=y, DSC_DEBUG=list(time=proc.time() - TIC_35111F31, script=dscrutils:::load_script(), replicate=DSC_REPLICATE, session=toString(sessionInfo()))), 'dsc_result/mean/normal_1_mean_1.rds')
dscrutils:::rm_if_empty(c("dsc_result/mean/normal_1_mean_1.stdout", "dsc_result/mean/normal_1_mean_1.stderr"))

## r script UUID: 413023

dscrutils:::empty_text(c("dsc_result/mean/t_1_mean_1.stdout", "dsc_result/mean/t_1_mean_1.stderr"))
DSC_35111F31 <- readRDS("dsc_result/t/t_1.rds")
DSC_REPLICATE <- DSC_35111F31$DSC_DEBUG$replicate
x <- DSC_35111F31$data
TIC_35111F31 <- proc.time()
set.seed(DSC_REPLICATE + 413023)

## BEGIN DSC CORE
y <- "meow"
## END DSC CORE

saveRDS(list(est_mean=y, DSC_DEBUG=list(time=proc.time() - TIC_35111F31, script=dscrutils:::load_script(), replicate=DSC_REPLICATE, session=toString(sessionInfo()))), 'dsc_result/mean/t_1_mean_1.rds')
dscrutils:::rm_if_empty(c("dsc_result/mean/t_1_mean_1.stdout", "dsc_result/mean/t_1_mean_1.stderr"))

## r script UUID: 80369414

dscrutils:::empty_text(c("dsc_result/sq_err/normal_1_mean_1_sq_err_1.stdout", "dsc_result/sq_err/normal_1_mean_1_sq_err_1.stderr"))
DSC_340F2788 <- list()
input.files <- c('dsc_result/normal/normal_1.rds','dsc_result/mean/normal_1_mean_1.rds')
for (i in 1:length(input.files)) DSC_340F2788 <- dscrutils:::merge_lists(DSC_340F2788, readRDS(input.files[i]))
DSC_REPLICATE <- DSC_340F2788$DSC_DEBUG$replicate
x <- DSC_340F2788$est_mean
y <- DSC_340F2788$true_mean
TIC_340F2788 <- proc.time()
set.seed(DSC_REPLICATE + 80369414)

## BEGIN DSC CORE
e <- (x - y)^2
## END DSC CORE

saveRDS(list(error=e, DSC_DEBUG=list(time=proc.time() - TIC_340F2788, script=dscrutils:::load_script(), replicate=DSC_REPLICATE, session=toString(sessionInfo()))), 'dsc_result/sq_err/normal_1_mean_1_sq_err_1.rds')
dscrutils:::rm_if_empty(c("dsc_result/sq_err/normal_1_mean_1_sq_err_1.stdout", "dsc_result/sq_err/normal_1_mean_1_sq_err_1.stderr"))

## r script UUID: 90107557

dscrutils:::empty_text(c("dsc_result/abs_err/normal_1_mean_1_abs_err_1.stdout", "dsc_result/abs_err/normal_1_mean_1_abs_err_1.stderr"))
DSC_A0BFA20F <- list()
input.files <- c('dsc_result/normal/normal_1.rds','dsc_result/mean/normal_1_mean_1.rds')
for (i in 1:length(input.files)) DSC_A0BFA20F <- dscrutils:::merge_lists(DSC_A0BFA20F, readRDS(input.files[i]))
DSC_REPLICATE <- DSC_A0BFA20F$DSC_DEBUG$replicate
x <- DSC_A0BFA20F$est_mean
y <- DSC_A0BFA20F$true_mean
TIC_A0BFA20F <- proc.time()
set.seed(DSC_REPLICATE + 90107557)

## BEGIN DSC CORE
e <- abs(x - y)
## END DSC CORE

saveRDS(list(error=e, DSC_DEBUG=list(time=proc.time() - TIC_A0BFA20F, script=dscrutils:::load_script(), replicate=DSC_REPLICATE, session=toString(sessionInfo()))), 'dsc_result/abs_err/normal_1_mean_1_abs_err_1.rds')
dscrutils:::rm_if_empty(c("dsc_result/abs_err/normal_1_mean_1_abs_err_1.stdout", "dsc_result/abs_err/normal_1_mean_1_abs_err_1.stderr"))

## r script UUID: 90107557

dscrutils:::empty_text(c("dsc_result/abs_err/t_1_mean_1_abs_err_1.stdout", "dsc_result/abs_err/t_1_mean_1_abs_err_1.stderr"))
DSC_A0BFA20F <- list()
input.files <- c('dsc_result/t/t_1.rds','dsc_result/mean/t_1_mean_1.rds')
for (i in 1:length(input.files)) DSC_A0BFA20F <- dscrutils:::merge_lists(DSC_A0BFA20F, readRDS(input.files[i]))
DSC_REPLICATE <- DSC_A0BFA20F$DSC_DEBUG$replicate
x <- DSC_A0BFA20F$est_mean
y <- DSC_A0BFA20F$true_mean
TIC_A0BFA20F <- proc.time()
set.seed(DSC_REPLICATE + 90107557)

## BEGIN DSC CORE
e <- abs(x - y)
## END DSC CORE

saveRDS(list(error=e, DSC_DEBUG=list(time=proc.time() - TIC_A0BFA20F, script=dscrutils:::load_script(), replicate=DSC_REPLICATE, session=toString(sessionInfo()))), 'dsc_result/abs_err/t_1_mean_1_abs_err_1.rds')
dscrutils:::rm_if_empty(c("dsc_result/abs_err/t_1_mean_1_abs_err_1.stdout", "dsc_result/abs_err/t_1_mean_1_abs_err_1.stderr"))

## r script UUID: 80369414

dscrutils:::empty_text(c("dsc_result/sq_err/t_1_mean_1_sq_err_1.stdout", "dsc_result/sq_err/t_1_mean_1_sq_err_1.stderr"))
DSC_340F2788 <- list()
input.files <- c('dsc_result/t/t_1.rds','dsc_result/mean/t_1_mean_1.rds')
for (i in 1:length(input.files)) DSC_340F2788 <- dscrutils:::merge_lists(DSC_340F2788, readRDS(input.files[i]))
DSC_REPLICATE <- DSC_340F2788$DSC_DEBUG$replicate
x <- DSC_340F2788$est_mean
y <- DSC_340F2788$true_mean
TIC_340F2788 <- proc.time()
set.seed(DSC_REPLICATE + 80369414)

## BEGIN DSC CORE
e <- (x - y)^2
## END DSC CORE

saveRDS(list(error=e, DSC_DEBUG=list(time=proc.time() - TIC_340F2788, script=dscrutils:::load_script(), replicate=DSC_REPLICATE, session=toString(sessionInfo()))), 'dsc_result/sq_err/t_1_mean_1_sq_err_1.rds')
dscrutils:::rm_if_empty(c("dsc_result/sq_err/t_1_mean_1_sq_err_1.stdout", "dsc_result/sq_err/t_1_mean_1_sq_err_1.stderr"))