Nothing
tests/testthat/_snaps/FuzzifyMatrix.md
In FuzzyImputationTest: Imputation Procedures and Quality Tests for Fuzzy Data
Function returns correct values
Code
set.seed(123456)
testMatrix1 <- matrix(c(1, 2, 3, 4, -1, 3, 5, 9, 0, 4, 7, 1, -1, -3, 5, 0, 7,
11, 22, 15), nrow = 5, ncol = 4, byrow = TRUE)
FuzzifyMatrix(crispMatrix = testMatrix1, coreFactor = 0.2, supportFactor = 0.2,
trapezoidal = TRUE)
Output
V1.X1 V1.X2 V1.X3 V1.X4 V2.X1 V2.X2
[1,] -0.06809589 0.4660206 1.13275769 1.73244637 1.313355 1.839452
[2,] -1.90182521 -1.5043822 -0.64200458 -0.05390396 2.044545 2.918872
[3,] -0.86782775 -0.2618784 0.06460772 0.19687078 3.634017 3.866556
[4,] -1.81819015 -1.2286135 -0.33880636 -0.11458576 -3.292727 -3.172934
[5,] 6.09297307 6.7581757 7.11215895 7.63236491 9.690484 10.519364
V2.X3 V2.X4 V3.X1 V3.X2 V3.X3 V3.X4 V4.X1
[1,] 2.704695 2.785452 2.133915 2.651345 3.672233 5.163757 3.5141873
[2,] 3.885153 4.843213 2.697948 3.856135 5.889556 7.180104 8.1685713
[3,] 4.883045 5.759876 4.831408 5.614946 8.145969 9.440538 -0.8269089
[4,] -2.141012 -1.424598 3.211003 4.544580 6.048868 6.462535 -0.6569126
[5,] 11.166980 11.776007 20.028213 21.202951 22.559898 22.831996 13.7648925
V4.X2 V4.X3 V4.X4
[1,] 3.7560951 4.7352819 4.8962591
[2,] 8.9756386 9.0037202 10.0634635
[3,] 0.3434087 1.4491714 1.7209355
[4,] -0.2259811 0.1608331 0.3253536
[5,] 14.8161904 15.0181391 15.7913446
Code
set.seed(123456)
testMatrix1 <- matrix(c(1, 2, 3, 4, -1, 3, 5, 9, 0, 4, 7, 1, -1, -3, 5, 0, 7,
11, 22, 15), nrow = 5, ncol = 4, byrow = TRUE)
FuzzifyMatrix(crispMatrix = testMatrix1, coreFactor = 0.2, supportFactor = 0.2,
trapezoidal = FALSE)
Output
V1.X1 V1.X2 V1.X3 V2.X1 V2.X2 V2.X3 V3.X1 V3.X2
[1,] 0.4660206 1 1.13275769 1.197237 2 2.901316 2.753171 3
[2,] -1.5043822 -1 -0.64200458 2.402654 3 3.883899 4.875273 5
[3,] -0.2618784 0 0.06460772 3.089274 4 4.198788 6.794842 7
[4,] -1.2286135 -1 -0.33880636 -3.886118 -3 -2.663002 4.734130 5
[5,] 6.7581757 7 7.11215895 10.000218 11 11.781856 21.261064 22
V3.X3 V4.X1 V4.X2 V4.X3
[1,] 4.083407 3.3493293 4 4.0998795
[2,] 6.360845 7.9186424 9 10.1849173
[3,] 8.357604 0.7123980 1 2.0844545
[4,] 6.320618 -0.1481589 0 0.8860522
[5,] 22.256718 13.9748510 15 15.7532361
Code
set.seed(123456)
testMatrix1 <- matrix(c(1, 2, 3, 4, -1, 3, 5, 9, 0, 4, 7, 1, -1, -3, 5, 0, 7,
11, 22, 15), nrow = 5, ncol = 4, byrow = TRUE)
FuzzifyMatrix(crispMatrix = testMatrix1, coreFactor = 0.3, supportFactor = 0.5,
trapezoidal = TRUE)
Output
V1.X1 V1.X2 V1.X3 V1.X4 V2.X1 V2.X2 V2.X3
[1,] -1.136260 0.1990309 1.19913653 2.6983582 0.4439346 1.759178 3.057043
[2,] -2.750181 -1.7565734 -0.46300687 1.0072447 0.6924899 2.878308 4.327729
[3,] -1.907691 -0.3928176 0.09691158 0.4275692 3.2184855 3.799834 5.324567
[4,] -2.816862 -1.3429202 -0.00820954 0.5523420 -3.5588838 -3.259401 -1.711519
[5,] 4.974257 6.6372636 7.16823842 8.4687533 8.2068456 10.279046 11.250471
V2.X4 V3.X1 V3.X2 V3.X3 V3.X4 V4.X1 V4.X2
[1,] 3.2589359 1.1834427 2.477017 4.008349 7.737160 3.029373 3.63414259
[2,] 6.7228795 0.3887341 3.284203 6.334334 9.560704 6.945790 8.96345789
[3,] 7.5166458 2.9635742 4.922419 8.718954 11.955377 -2.910681 0.01511306
[4,] 0.0795164 0.9829258 4.316871 6.573302 7.607470 -1.416301 -0.33897159
[5,] 12.7730360 17.8675810 20.804427 22.839846 23.520093 12.096041 14.72428564
V4.X3 V4.X4
[1,] 5.1029228 5.5053659
[2,] 9.0055803 11.6549386
[3,] 1.6737570 2.3531673
[4,] 0.2412497 0.6525508
[5,] 15.0272086 16.9602225
Code
set.seed(123456)
testDataFrame1 <- data.frame(a = c(1, -1, 0, -1, 7), b = c(2, 3, 4, -3, 11), b = c(
3, 5, 7, 5, 22), d = c(4, 9, 1, 0, 15))
FuzzifyMatrix(crispMatrix = testDataFrame1, coreFactor = 0.2, supportFactor = 0.5,
trapezoidal = TRUE)
Output
a.X1 a.X2 a.X3 a.X4 b.X1 b.X2 b.X3
[1,] -0.8692706 0.4660206 1.13275769 2.6319794 0.5242087 1.839452 2.704695
[2,] -2.4979897 -1.5043822 -0.64200458 0.8282470 0.7330538 2.918872 3.885153
[3,] -1.7767518 -0.2618784 0.06460772 0.3952654 3.2852074 3.866556 4.883045
[4,] -2.7025552 -1.2286135 -0.33880636 0.2217451 -3.4724169 -3.172934 -2.141012
[5,] 5.0951691 6.7581757 7.11215895 8.4126739 8.4471636 10.519364 11.166980
b.X4 b.1.X1 b.1.X2 b.1.X3 b.1.X4 d.X1 d.X2
[1,] 2.9065883 1.3577704 2.651345 3.672233 7.401043 3.151326 3.7560951
[2,] 6.2803032 0.9606664 3.856135 5.889556 9.115926 6.957970 8.9756386
[3,] 7.0751234 3.6561013 5.614946 8.145969 11.382392 -2.582385 0.3434087
[4,] -0.3499774 1.2106356 4.544580 6.048868 7.083036 -1.303310 -0.2259811
[5,] 12.6895457 18.2661055 21.202951 22.559898 23.240145 12.187946 14.8161904
d.X3 d.X4
[1,] 4.7352819 5.1377250
[2,] 9.0037202 11.6530785
[3,] 1.4491714 2.1285817
[4,] 0.1608331 0.5721343
[5,] 15.0181391 16.9511530
Code
set.seed(123456)
testDataFrame1 <- data.frame(a = c(1, -1, 0, -1, 7), b = c(2, 3, 4, -3, 11), b = c(
3, 5, 7, 5, 22), d = c(4, 9, 1, 0, 15))
FuzzifyMatrix(crispMatrix = testDataFrame1, coreFactor = 0.4, supportFactor = 0.3,
trapezoidal = FALSE)
Output
a.X1 a.X2 a.X3 b.X1 b.X2 b.X3 b.1.X1 b.1.X2
[1,] 0.1990309 1 1.19913653 0.7958558 2 3.351974 2.629757 3
[2,] -1.7565734 -1 -0.46300687 2.1039808 3 4.325849 4.812910 5
[3,] -0.3928176 0 0.09691158 2.6339115 4 4.298182 6.692263 7
[4,] -1.3429202 -1 -0.00820954 -4.3291770 -3 -2.494504 4.601194 5
[5,] 6.6372636 7 7.16823842 9.5003273 11 12.172783 20.891597 22
b.1.X3 d.X1 d.X2 d.X3
[1,] 4.625111 3.0239940 4 4.149819
[2,] 7.041267 7.3779637 9 10.777376
[3,] 9.036406 0.5685970 1 2.626682
[4,] 6.980927 -0.2222383 0 1.329078
[5,] 22.385077 13.4622765 15 16.129854
Try the FuzzyImputationTest package in your browser
Any scripts or data that you put into this service are public.
FuzzyImputationTest documentation built on April 3, 2025, 9:23 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Function returns correct values
Code
set.seed(123456)
testMatrix1 <- matrix(c(1, 2, 3, 4, -1, 3, 5, 9, 0, 4, 7, 1, -1, -3, 5, 0, 7,
11, 22, 15), nrow = 5, ncol = 4, byrow = TRUE)
FuzzifyMatrix(crispMatrix = testMatrix1, coreFactor = 0.2, supportFactor = 0.2,
trapezoidal = TRUE)
Output
V1.X1 V1.X2 V1.X3 V1.X4 V2.X1 V2.X2
[1,] -0.06809589 0.4660206 1.13275769 1.73244637 1.313355 1.839452
[2,] -1.90182521 -1.5043822 -0.64200458 -0.05390396 2.044545 2.918872
[3,] -0.86782775 -0.2618784 0.06460772 0.19687078 3.634017 3.866556
[4,] -1.81819015 -1.2286135 -0.33880636 -0.11458576 -3.292727 -3.172934
[5,] 6.09297307 6.7581757 7.11215895 7.63236491 9.690484 10.519364
V2.X3 V2.X4 V3.X1 V3.X2 V3.X3 V3.X4 V4.X1
[1,] 2.704695 2.785452 2.133915 2.651345 3.672233 5.163757 3.5141873
[2,] 3.885153 4.843213 2.697948 3.856135 5.889556 7.180104 8.1685713
[3,] 4.883045 5.759876 4.831408 5.614946 8.145969 9.440538 -0.8269089
[4,] -2.141012 -1.424598 3.211003 4.544580 6.048868 6.462535 -0.6569126
[5,] 11.166980 11.776007 20.028213 21.202951 22.559898 22.831996 13.7648925
V4.X2 V4.X3 V4.X4
[1,] 3.7560951 4.7352819 4.8962591
[2,] 8.9756386 9.0037202 10.0634635
[3,] 0.3434087 1.4491714 1.7209355
[4,] -0.2259811 0.1608331 0.3253536
[5,] 14.8161904 15.0181391 15.7913446
Code
set.seed(123456)
testMatrix1 <- matrix(c(1, 2, 3, 4, -1, 3, 5, 9, 0, 4, 7, 1, -1, -3, 5, 0, 7,
11, 22, 15), nrow = 5, ncol = 4, byrow = TRUE)
FuzzifyMatrix(crispMatrix = testMatrix1, coreFactor = 0.2, supportFactor = 0.2,
trapezoidal = FALSE)
Output
V1.X1 V1.X2 V1.X3 V2.X1 V2.X2 V2.X3 V3.X1 V3.X2
[1,] 0.4660206 1 1.13275769 1.197237 2 2.901316 2.753171 3
[2,] -1.5043822 -1 -0.64200458 2.402654 3 3.883899 4.875273 5
[3,] -0.2618784 0 0.06460772 3.089274 4 4.198788 6.794842 7
[4,] -1.2286135 -1 -0.33880636 -3.886118 -3 -2.663002 4.734130 5
[5,] 6.7581757 7 7.11215895 10.000218 11 11.781856 21.261064 22
V3.X3 V4.X1 V4.X2 V4.X3
[1,] 4.083407 3.3493293 4 4.0998795
[2,] 6.360845 7.9186424 9 10.1849173
[3,] 8.357604 0.7123980 1 2.0844545
[4,] 6.320618 -0.1481589 0 0.8860522
[5,] 22.256718 13.9748510 15 15.7532361
Code
set.seed(123456)
testMatrix1 <- matrix(c(1, 2, 3, 4, -1, 3, 5, 9, 0, 4, 7, 1, -1, -3, 5, 0, 7,
11, 22, 15), nrow = 5, ncol = 4, byrow = TRUE)
FuzzifyMatrix(crispMatrix = testMatrix1, coreFactor = 0.3, supportFactor = 0.5,
trapezoidal = TRUE)
Output
V1.X1 V1.X2 V1.X3 V1.X4 V2.X1 V2.X2 V2.X3
[1,] -1.136260 0.1990309 1.19913653 2.6983582 0.4439346 1.759178 3.057043
[2,] -2.750181 -1.7565734 -0.46300687 1.0072447 0.6924899 2.878308 4.327729
[3,] -1.907691 -0.3928176 0.09691158 0.4275692 3.2184855 3.799834 5.324567
[4,] -2.816862 -1.3429202 -0.00820954 0.5523420 -3.5588838 -3.259401 -1.711519
[5,] 4.974257 6.6372636 7.16823842 8.4687533 8.2068456 10.279046 11.250471
V2.X4 V3.X1 V3.X2 V3.X3 V3.X4 V4.X1 V4.X2
[1,] 3.2589359 1.1834427 2.477017 4.008349 7.737160 3.029373 3.63414259
[2,] 6.7228795 0.3887341 3.284203 6.334334 9.560704 6.945790 8.96345789
[3,] 7.5166458 2.9635742 4.922419 8.718954 11.955377 -2.910681 0.01511306
[4,] 0.0795164 0.9829258 4.316871 6.573302 7.607470 -1.416301 -0.33897159
[5,] 12.7730360 17.8675810 20.804427 22.839846 23.520093 12.096041 14.72428564
V4.X3 V4.X4
[1,] 5.1029228 5.5053659
[2,] 9.0055803 11.6549386
[3,] 1.6737570 2.3531673
[4,] 0.2412497 0.6525508
[5,] 15.0272086 16.9602225
Code
set.seed(123456)
testDataFrame1 <- data.frame(a = c(1, -1, 0, -1, 7), b = c(2, 3, 4, -3, 11), b = c(
3, 5, 7, 5, 22), d = c(4, 9, 1, 0, 15))
FuzzifyMatrix(crispMatrix = testDataFrame1, coreFactor = 0.2, supportFactor = 0.5,
trapezoidal = TRUE)
Output
a.X1 a.X2 a.X3 a.X4 b.X1 b.X2 b.X3
[1,] -0.8692706 0.4660206 1.13275769 2.6319794 0.5242087 1.839452 2.704695
[2,] -2.4979897 -1.5043822 -0.64200458 0.8282470 0.7330538 2.918872 3.885153
[3,] -1.7767518 -0.2618784 0.06460772 0.3952654 3.2852074 3.866556 4.883045
[4,] -2.7025552 -1.2286135 -0.33880636 0.2217451 -3.4724169 -3.172934 -2.141012
[5,] 5.0951691 6.7581757 7.11215895 8.4126739 8.4471636 10.519364 11.166980
b.X4 b.1.X1 b.1.X2 b.1.X3 b.1.X4 d.X1 d.X2
[1,] 2.9065883 1.3577704 2.651345 3.672233 7.401043 3.151326 3.7560951
[2,] 6.2803032 0.9606664 3.856135 5.889556 9.115926 6.957970 8.9756386
[3,] 7.0751234 3.6561013 5.614946 8.145969 11.382392 -2.582385 0.3434087
[4,] -0.3499774 1.2106356 4.544580 6.048868 7.083036 -1.303310 -0.2259811
[5,] 12.6895457 18.2661055 21.202951 22.559898 23.240145 12.187946 14.8161904
d.X3 d.X4
[1,] 4.7352819 5.1377250
[2,] 9.0037202 11.6530785
[3,] 1.4491714 2.1285817
[4,] 0.1608331 0.5721343
[5,] 15.0181391 16.9511530
Code
set.seed(123456)
testDataFrame1 <- data.frame(a = c(1, -1, 0, -1, 7), b = c(2, 3, 4, -3, 11), b = c(
3, 5, 7, 5, 22), d = c(4, 9, 1, 0, 15))
FuzzifyMatrix(crispMatrix = testDataFrame1, coreFactor = 0.4, supportFactor = 0.3,
trapezoidal = FALSE)
Output
a.X1 a.X2 a.X3 b.X1 b.X2 b.X3 b.1.X1 b.1.X2
[1,] 0.1990309 1 1.19913653 0.7958558 2 3.351974 2.629757 3
[2,] -1.7565734 -1 -0.46300687 2.1039808 3 4.325849 4.812910 5
[3,] -0.3928176 0 0.09691158 2.6339115 4 4.298182 6.692263 7
[4,] -1.3429202 -1 -0.00820954 -4.3291770 -3 -2.494504 4.601194 5
[5,] 6.6372636 7 7.16823842 9.5003273 11 12.172783 20.891597 22
b.1.X3 d.X1 d.X2 d.X3
[1,] 4.625111 3.0239940 4 4.149819
[2,] 7.041267 7.3779637 9 10.777376
[3,] 9.036406 0.5685970 1 2.626682
[4,] 6.980927 -0.2222383 0 1.329078
[5,] 22.385077 13.4622765 15 16.129854
Try the FuzzyImputationTest package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.