R Under development (unstable) (2025-09-04 r88794 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(capushe)
> data(datacapushe)
> 
> dataDjump=Djump(datacapushe)
> print(dataDjump)
[1] "K=21"
> summary(dataDjump)
Length  Class   Mode 
     1  Djump     S4 
> plot(dataDjump,newwindow=FALSE)
> 
> # Djump(datacapushe[1:5,])
> 
> 
> dataNan=datacapushe
> dataNan[2,3]=NaN
> Djump(dataNan)
[1] "K=21"
Warning message:
In Djump(dataNan) : 1 line has been removed by Djump
> dataNan[15,1]=NaN
> Djump(dataNan)
[1] "K=21"
Warning message:
In Djump(dataNan) : 1 line has been removed by Djump
> dataNan[15,3]=NaN
> Djump(dataNan)
[1] "K=21"
Warning message:
In Djump(dataNan) : 2 lines have been removed by Djump
> dataNan[8:50,4]=rep(NaN,43)
> # Djump(dataNan)
> 
> Djump(datacapushe,scoef=3)
[1] "K=21"
> # Djump(datacapushe,scoef="a")
> # Djump(datacapushe,scoef=-1)
> # Djump(datacapushe,scoef=Inf)
> 
> Djump(datacapushe,Careajump=0.3)
[1] "K=21"
> # Djump(datacapushe,Careajump="a")
> # Djump(datacapushe,Careajump=-1)
> # Djump(datacapushe,Careajump=1)
> # Djump(datacapushe,Careajump=Inf)
> 
> Djump(datacapushe,Ctresh=200)
[1] "K=21"
> # Djump(datacapushe,Ctresh="a")
> # Djump(datacapushe,Ctresh=250)
> # Djump(datacapushe,Ctresh=1)
> # Djump(datacapushe,Ctresh=Inf)
> 
> datacomplex=datacapushe
> datacomplex[4,3]=-3
> # Djump(datacomplex)
> datacomplex[4,3]=0.001
> # Djump(datacomplex)
> 
> datapen=datacapushe
> datapen[6,]=datapen[5,]
> datapen[6,4]=1
> Djump(datapen)
[1] "K=1"
> datapen[6,4]=0.005
> Djump(datapen)
[1] "K=1"
> 
> datacontrast=datacapushe
> datacontrast[6,4]=-3
> Djump(datacontrast)
[1] "K=1"
> 
> proc.time()
   user  system elapsed 
   0.32    0.10    0.40