Load Data Matrix from Csv File

Load data matrix from file in CSV format. As a separator has to be used semicolon ;. Frequency column can be neither contain in file or can be missing. First line has to contain variable names. Frequency column has to by sign by this name: MUDIM.frequency, if is contain

loadFromCsv(...)

Arguments

this	Distribution
filename	filename(path to file: absolute or relative from R main directory)

See also

saveToCsv, Distribution

Examples

##---- Load MUDIM first

p <- Distribution("NAME");

filename <- "data.csv";
loadFromCsv(p,filename);
#> Error in loadFromCsv(p, filename): could not find function "loadFromCsv"
####format of input file type A:
A;B
#> Error in eval(expr, envir, enclos): object 'A' not found
#> Error in eval(expr, envir, enclos): object 'B' not found
20;0
#> [1] 20
#> [1] 0
6;4
#> [1] 6
#> [1] 4
7;2
#> [1] 7
#> [1] 2
0;1
#> [1] 0
#> [1] 1
2;1
#> [1] 2
#> [1] 1
9;4
#> [1] 9
#> [1] 4
2;2
#> [1] 2
#> [1] 2
6;2
#> [1] 6
#> [1] 2
2;1
#> [1] 2
#> [1] 1
3;2
#> [1] 3
#> [1] 2
1;1
#> [1] 1
#> [1] 1
0;1
#> [1] 0
#> [1] 1
####format of input file type B:
A;B;C;MUDIM.frequency
#> Error in eval(expr, envir, enclos): object 'A' not found
#> Error in eval(expr, envir, enclos): object 'B' not found
#> function (object, contr, how.many, ...) 
#> {
#>     if (!nlevels(object)) 
#>         stop("object not interpretable as a factor")
#>     if (!missing(contr) && is.name(Xcontr <- substitute(contr))) 
#>         contr <- switch(as.character(Xcontr), poly = "contr.poly", 
#>             helmert = "contr.helmert", sum = "contr.sum", treatment = "contr.treatment", 
#>             SAS = "contr.SAS", contr)
#>     if (missing(contr)) {
#>         oc <- getOption("contrasts")
#>         contr <- if (length(oc) < 2L) 
#>             if (is.ordered(object)) 
#>                 contr.poly
#>             else contr.treatment
#>         else oc[1 + is.ordered(object)]
#>     }
#>     if (missing(how.many) && missing(...)) 
#>         contrasts(object) <- contr
#>     else {
#>         if (is.character(contr)) 
#>             contr <- get(contr, mode = "function")
#>         if (is.function(contr)) 
#>             contr <- contr(nlevels(object), ...)
#>         contrasts(object, how.many) <- contr
#>     }
#>     object
#> }
#> <bytecode: 0x00000000241da318>
#> <environment: namespace:stats>
#> Error in eval(expr, envir, enclos): object 'MUDIM.frequency' not found
#> function (object, contr, how.many, ...) 
#> {
#>     if (!nlevels(object)) 
#>         stop("object not interpretable as a factor")
#>     if (!missing(contr) && is.name(Xcontr <- substitute(contr))) 
#>         contr <- switch(as.character(Xcontr), poly = "contr.poly", 
#>             helmert = "contr.helmert", sum = "contr.sum", treatment = "contr.treatment", 
#>             SAS = "contr.SAS", contr)
#>     if (missing(contr)) {
#>         oc <- getOption("contrasts")
#>         contr <- if (length(oc) < 2L) 
#>             if (is.ordered(object)) 
#>                 contr.poly
#>             else contr.treatment
#>         else oc[1 + is.ordered(object)]
#>     }
#>     if (missing(how.many) && missing(...)) 
#>         contrasts(object) <- contr
#>     else {
#>         if (is.character(contr)) 
#>             contr <- get(contr, mode = "function")
#>         if (is.function(contr)) 
#>             contr <- contr(nlevels(object), ...)
#>         contrasts(object, how.many) <- contr
#>     }
#>     object
#> }
#> <bytecode: 0x00000000241da318>
#> <environment: namespace:stats>
20;0;1;10
#> [1] 20
#> [1] 0
#> [1] 1
#> [1] 10
0;0;1;470
#> [1] 0
#> [1] 0
#> [1] 1
#> [1] 470
2;0;1;720
#> [1] 2
#> [1] 0
#> [1] 1
#> [1] 720
1;0;1;990
#> [1] 1
#> [1] 0
#> [1] 1
#> [1] 990
5;0;1;100
#> [1] 5
#> [1] 0
#> [1] 1
#> [1] 100
3;0;1;480
#> [1] 3
#> [1] 0
#> [1] 1
#> [1] 480
4;0;1;190
#> [1] 4
#> [1] 0
#> [1] 1
#> [1] 190
6;0;1;50
#> [1] 6
#> [1] 0
#> [1] 1
#> [1] 50
7;0;1;20
#> [1] 7
#> [1] 0
#> [1] 1
#> [1] 20
20;0;6;10
#> [1] 20
#> [1] 0
#> [1] 6
#> [1] 10
0;0;6;470
#> [1] 0
#> [1] 0
#> [1] 6
#> [1] 470
2;0;6;720
#> [1] 2
#> [1] 0
#> [1] 6
#> [1] 720
1;0;6;990
#> [1] 1
#> [1] 0
#> [1] 6
#> [1] 990
5;0;6;100
#> [1] 5
#> [1] 0
#> [1] 6
#> [1] 100
3;0;6;480
#> [1] 3
#> [1] 0
#> [1] 6
#> [1] 480
4;0;6;190
#> [1] 4
#> [1] 0
#> [1] 6
#> [1] 190