## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
# Remplacez xfun::isFALSE() par identical(x, FALSE)
#knitr::opts_chunk$set(
 # warning = identical(x, FALSE),
  #message = identical(x, FALSE)
#)

## -----------------------------------------------------------------------------
library(stats)
library(dplyr)
library(ggplot2)
library(NTLKwIEx)

## -----------------------------------------------------------------------------
P_NTLKwIEx(x=1, teta=5, alpha=4, a=3, b=2, m=1)

## -----------------------------------------------------------------------------
P_NTLKwIEx(x=20.5, teta=4, alpha=0.04, a=1.2, b=1.3, m=2.1)

## -----------------------------------------------------------------------------
C_NTLKwIEx(x=1, teta=5, alpha=4, a=3, b=2, m=1)


## -----------------------------------------------------------------------------
C_NTLKwIEx(x=20.5, teta=4, alpha=0.04, a=1.2, b=1.3, m=2.1)


## -----------------------------------------------------------------------------

Plot_PNTLKwIEx(teta=1.8, alpha = 1.6, a=3, b=1.3, m=1.6, min_x = 0, max_x = 100)


## -----------------------------------------------------------------------------
Plot_CNTLKwIEx(teta=1.8, alpha = 1.6, a=3, b=1.3, m=1.6, min_x = 0, max_x = 50)

## -----------------------------------------------------------------------------

Q_NTLKwIEx(p=0.3, teta = 1.8, alpha = 0.5, a=5.4, b=2.4, m=8.2)


## -----------------------------------------------------------------------------

Q_NTLKwIEx(p=0.5, teta = 5.3, alpha = 3.2, a=8.2, b=1.8, m=2.3)


## -----------------------------------------------------------------------------
set.seed(100)
data=R_NTLKwIEx(100, teta = 5.3, alpha = 3.2, a=8.2, b=1.8, m=2.3)
data

## -----------------------------------------------------------------------------
set.seed(100)
data=R_NTLKwIEx(150, teta = 3.1, alpha = 0.2, a=4.2, b=2.8, m=1.3)
data

## -----------------------------------------------------------------------------
set.seed(100)
data=R_NTLKwIEx(100, teta = 5.3, alpha = 3.2, a=8.2, b=1.8, m=2.3)
E_NTLKwIEx(data)

## -----------------------------------------------------------------------------
set.seed(100)
data=R_NTLKwIEx(150, teta = 3.1, alpha = 0.2, a=4.2, b=2.8, m=1.3)
E_NTLKwIEx(data)

## -----------------------------------------------------------------------------
E_NTLKwIEx(ConductorFailureTimes)

## -----------------------------------------------------------------------------
set.seed(100)
data=R_NTLKwIEx(100, teta = 5.3, alpha = 3.2, a=8.2, b=1.8, m=2.3)
Sim_NTLKwIEx(data)

## -----------------------------------------------------------------------------
Sim_NTLKwIEx(ConductorFailureTimes)