@@ -259,7 +259,10 @@ function quali_passive(ca::CA, passive; normalize = "principal")
259
259
error (" passive variable array must be two-dimensional" )
260
260
end
261
261
262
- (; X, GS) = ca
262
+ # (; X, GS) = ca
263
+ X = ca. X
264
+ GS = ca. GS
265
+
263
266
PX = Matrix (passive)
264
267
265
268
if size (PX, 1 ) != size (X, 1 )
310
313
inertia (ca:: CA ) = ca. I
311
314
312
315
function variable_coords (ca:: CA ; normalize = ca. normalize)
313
- (; GS) = ca
316
+ # (; GS) = ca
317
+ GS = ca. GS
314
318
315
319
d = size (GS, 2 )
316
320
if normalize == " standard"
@@ -370,7 +374,11 @@ object_coords(mca::MCA; normalize = "principal") =
370
374
object_coords (mca. C, normalize = normalize)
371
375
372
376
function variable_coords (mca:: MCA ; normalize = " principal" )
373
- (; C, vnames, dr) = mca
377
+ # (; C, vnames, dr) = mca
378
+ C = mca. C
379
+ vnames = mca. vnames
380
+ dr = mca. dr
381
+
374
382
na = expand_names (vnames, dr)
375
383
G = variable_coords (C, normalize = normalize)
376
384
return (Variable = na. Variable, Level = na. Level, Coord = G)
@@ -471,7 +479,8 @@ function fit(
471
479
end
472
480
473
481
function quali_passive (mca:: MCA , passive; normalize = " principal" )
474
- (; C) = mca
482
+ # (; C) = mca
483
+ C = mca. C
475
484
if size (passive, 1 ) != size (C. X, 1 )
476
485
error (" Wrong number of rows in passive data array" )
477
486
end
0 commit comments