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

## ----setup--------------------------------------------------------------------
library(tnl.Test)

## -----------------------------------------------------------------------------
library(tnl.Test)
require(stats)
 x=rnorm(7,2,0.5)
 y=rnorm(7,0,1)
 tnl.test(x,y,l=2)

## -----------------------------------------------------------------------------
library(tnl.Test)
 ptnl(q=2,n=6,m=9,l=2,exact="NULL")

## -----------------------------------------------------------------------------
library(tnl.Test)
 dtnl(k=3,n=7,m=10,l=2,exact="TRUE")

## -----------------------------------------------------------------------------
library(tnl.Test)
 qtnl(p=c(.1,.3,.5,.8,1),n=8,m=8,l=1,exact="NULL",trial = 100000)

## -----------------------------------------------------------------------------
library(tnl.Test)
 rtnl(N=15,n=7,m=10,l=2)

## -----------------------------------------------------------------------------
library(tnl.Test)
require(base)
 tnl_mean(n.=11,m.=8, l=2)

## -----------------------------------------------------------------------------
library(tnl.Test)
ptnl.lehmann(q=3, n.=7,m.=7,l = 2, gamma = 1.2)

## -----------------------------------------------------------------------------
library(tnl.Test)
 dtnl.lehmann(k=3, n.= 6,m.=8,l = 2, gamma = 0.8)

## -----------------------------------------------------------------------------
library(tnl.Test)
qtnl.lehmann(p=.3, n.=4,m.=7, l=1, gamma=0.5)

## -----------------------------------------------------------------------------
library(tnl.Test)
rtnl.lehmann(N = 15, n. = 7,m.=10, l = 2,gamma=0.5)