R Under development (unstable) (2025-05-08 r88190 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("variables")
> 
> x1 <- numeric_var("d_vari", "double", "cm", support = c(0.0, 1.5))
> variable.names(x1)
[1] "d_vari"
> desc(x1)
[1] "double"
> unit(x1)
[1] "cm"
> support(x1)
$d_vari
[1] 0.0 1.5

> levels(x1)
[1] NA
> bounds(x1)
$d_vari
[1] -Inf  Inf

> is.bounded(x1)
[1] FALSE
> mkgrid(x1)
$d_vari
[1] 0.0 1.5

> as.data.frame(x1)
  d_vari
1    1.5
> 
> x1 <- numeric_var("d_vari", "double", "cm", support = c(0.0, 1.5), add = c(-1, 1))
> variable.names(x1)
[1] "d_vari"
> desc(x1)
[1] "double"
> unit(x1)
[1] "cm"
> support(x1)
$d_vari
[1] 0.0 1.5

> levels(x1)
[1] NA
> bounds(x1)
$d_vari
[1] -Inf  Inf

> is.bounded(x1)
[1] FALSE
> mkgrid(x1)
$d_vari
[1] -1.0  2.5

> mkgrid(x1, add = FALSE)
$d_vari
[1] 0.0 1.5

> as.data.frame(x1)
  d_vari
1    3.5
> 
> 
> 
> x2 <- numeric_var("i_vari", "integer", "cm", support = 1:10)
> variable.names(x2)
[1] "i_vari"
> desc(x2)
[1] "integer"
> unit(x2)
[1] "cm"
> support(x2)
$i_vari
 [1]  1  2  3  4  5  6  7  8  9 10

> levels(x2)
 [1]  1  2  3  4  5  6  7  8  9 10
> bounds(x2)
$i_vari
[1]  1 10

> is.bounded(x2)
[1] TRUE
> mkgrid(x2)
$i_vari
 [1]  1  2  3  4  5  6  7  8  9 10

> as.data.frame(x2)
   i_vari
1       1
2       2
3       3
4       4
5       5
6       6
7       7
8       8
9       9
10     10
> 
> x3 <- numeric_var("dd_vari", "discrete double", "cm", support = 1:4/6)
> variable.names(x3)
[1] "dd_vari"
> desc(x3)
[1] "discrete double"
> unit(x3)
[1] "cm"
> support(x3)
$dd_vari
[1] 0.1666667 0.3333333 0.5000000 0.6666667

> levels(x3)
[1] 0.1666667 0.3333333 0.5000000 0.6666667
> bounds(x3)
$dd_vari
[1] 0.1666667 0.6666667

> is.bounded(x3)
[1] TRUE
> mkgrid(x3)
$dd_vari
[1] 0.1666667 0.3333333 0.5000000 0.6666667

> as.data.frame(x3)
    dd_vari
1 0.1666667
2 0.3333333
3 0.5000000
4 0.6666667
> 
> x4 <- numeric_var("db_vari", "bounded double", "cm", support = c(0.1, 1.4), bounds = c(0.0, 1.5))
> variable.names(x4)
[1] "db_vari"
> desc(x4)
[1] "bounded double"
> unit(x4)
[1] "cm"
> support(x4)
$db_vari
[1] 0.1 1.4

> levels(x4)
[1] NA
> bounds(x4)
$db_vari
[1] 0.0 1.5

> is.bounded(x4)
[1] TRUE
> mkgrid(x4)
$db_vari
[1] 0.0 1.5

> as.data.frame(x4)
  db_vari
1     1.5
> 
> x5 <- ordered_var("o_vari", "ordered", LETTERS[1:3])
> variable.names(x5)
[1] "o_vari"
> desc(x5)
[1] "ordered"
> unit(x5)
[1] NA
> support(x5)
$o_vari
[1] A B C
Levels: A < B < C

> levels(x5)
[1] "A" "B" "C"
> bounds(x5)
$o_vari
[1] A C
Levels: A < B < C

> is.bounded(x5)
[1] TRUE
> as.data.frame(x5)
  o_vari
1      A
2      B
3      C
> 
> x6 <- factor_var("f_vari", "unordered", LETTERS[1:3])
> variable.names(x6)
[1] "f_vari"
> desc(x6)
[1] "unordered"
> unit(x6)
[1] NA
> support(x6)
$f_vari
[1] A B C
Levels: A B C

> levels(x6)
[1] "A" "B" "C"
> bounds(x6)
$f_vari
[1] NA

> is.bounded(x6)
[1] TRUE
> as.data.frame(x6)
  f_vari
1      A
2      B
3      C
> 
> xy <- c(x1, x2, x3, x4, x5, x6)
> names(xy)
[1] "d_vari"  "i_vari"  "dd_vari" "db_vari" "o_vari"  "f_vari" 
> desc(xy)
           d_vari            i_vari           dd_vari           db_vari 
         "double"         "integer" "discrete double"  "bounded double" 
           o_vari            f_vari 
        "ordered"       "unordered" 
> unit(xy)
 d_vari  i_vari dd_vari db_vari  o_vari  f_vari 
   "cm"    "cm"    "cm"    "cm"      NA      NA 
> support(xy)
$d_vari
[1] 0.0 1.5

$i_vari
 [1]  1  2  3  4  5  6  7  8  9 10

$dd_vari
[1] 0.1666667 0.3333333 0.5000000 0.6666667

$db_vari
[1] 0.1 1.4

$o_vari
[1] A B C
Levels: A < B < C

$f_vari
[1] A B C
Levels: A B C

> levels(xy)
NULL
> bounds(xy)
$d_vari
[1] -Inf  Inf

$i_vari
[1]  1 10

$dd_vari
[1] 0.1666667 0.6666667

$db_vari
[1] 0.0 1.5

$o_vari
[1] A C
Levels: A < B < C

$f_vari
[1] NA

> is.bounded(xy)
 d_vari  i_vari dd_vari db_vari  o_vari  f_vari 
  FALSE    TRUE    TRUE    TRUE    TRUE    TRUE 
> mkgrid(xy, n = 3)
$d_vari
[1] -1.00  0.75  2.50

$i_vari
 [1]  1  2  3  4  5  6  7  8  9 10

$dd_vari
[1] 0.1666667 0.3333333 0.5000000 0.6666667

$db_vari
[1] 0.00 0.75 1.50

$o_vari
[1] A B C
Levels: A < B < C

$f_vari
[1] A B C
Levels: A B C

> dxy <- as.data.frame(xy, n = 10)
> check(xy, dxy)
[1] TRUE
> sapply(xy, check, data = dxy)
 d_vari  i_vari dd_vari db_vari  o_vari  f_vari 
   TRUE    TRUE    TRUE    TRUE    TRUE    TRUE 
> 
> proc.time()
   user  system elapsed 
   0.23    0.07    0.28