tmp"
In MDgof: Various Methods for the Goodness-of-Fit Problem in D>1 Dimensions

knitr::opts_chunk$set(
  collapse = TRUE, error = TRUE
)
library(MDgof)
st=function() knitr::knit_exit()

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

old tests

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)

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)

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)

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)