---
title: "tmp"
output: html_document
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE, error = TRUE
)
library(MDgof)
st=function() knitr::knit_exit()
```


```{r}
source("C:/Users/wolfg/Dropbox/MDgof/MDgof/R/run.studies.R")
set.seed(111)
tmp=MDgof::case.studies(1)
TS=newTS
```

# old tests

```{r}
run.studies(1,B=10)
run.studies(1:2, B=10)
run.studies(1, alpha=0.1, B=10)
run.studies(1:2, alpha=0.1, B=10)
run.studies(1, param_alt = 0.5, B=10)
run.studies(1:2, param_alt = c(0.5, 0.6), B=10)
run.studies(1:2, param_alt = matrix(4:7/10,2,2), B=10)
```


```{r}
TSextra=list(Continuous=TRUE, WithEstimation=FALSE, Withpvalue=TRUE)
run.studies(1, TS=TS, TSextra=TSextra, param_alt=0.3, With.p.value = TRUE, B=10)
run.studies(1:2, TS=TS, TSextra=TSextra, param_alt=c(0.3, 0.4), With.p.value = TRUE, B=10)
run.studies(1:2, TS=TS, TSextra=TSextra, param_alt=matrix(0.3, 2, 2), With.p.value = TRUE, B=10)
```

```{r}
TSextra=list(Continuous=TRUE, WithEstimation=FALSE, Withpvalue=FALSE)
run.studies(1, TS=TS, TSextra=TSextra, param_alt=0.3, B=10)
run.studies(1:2, TS=TS, TSextra=TSextra, param_alt=c(0.3, 0.4),  B=10)
run.studies(1:2, TS=TS, TSextra=TSextra, param_alt=matrix(0.3, 2, 2), B=10)
```

```{r}
TSextra=list(Continuous=TRUE, WithEstimation=FALSE, Withpvalue=FALSE)
run.studies(1, TS=TS, TSextra=TSextra,  B=10)
run.studies(1:2, TS=TS, TSextra=TSextra, B=10)
```
