> library(Factoshiny)
Loading required package: shiny
Loading required package: FactoInvestigate
> library(FactoInvestigate)
> str(data_simplified)
'data.frame': 3507 obs. of 5 variables:
$ Yield : num 200 183 180 180 180 ...
$ Plantation_density: num 6536 4444 4000 4000 4545 ...
$ Label : Factor w/ 3 levels "PDO","PGI","Unlabeled_wine": 3 2 2 2 2 2 3 3 3 2 ...
$ Organic : Factor w/ 2 levels "NO","YES": 1 1 1 1 1 1 1 1 1 1 ...
$ Irrigation : Factor w/ 3 levels "NO","Unknown",..: 2 2 2 2 2 2 1 2 1 2 ...
> colSums(is.na(data_simplified)) Yield Plantation_density Label Organic Irrigation
0 0 0 0 0
> res.mca <- MCA(data_simplified,
+ quanti.sup = c(1, 2), # Yield and Plantation_density
+ quali.sup = c(3,4,5)) # year_of_survey, Variety, Label, Organic, Irrigation
Error in CA(Ztot, ncp = min(ncp, ncol(Z) - length(act)), row.sup = ind.sup, :
length of vector row.w should be the number of active rows
Warning message:
In CA(Ztot, ncp = min(ncp, ncol(Z) - length(act)), row.sup = ind.sup, :
The rows 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, [... truncated]