@@ -259,7 +259,10 @@ function quali_passive(ca::CA, passive; normalize = "principal")
259259 error (" passive variable array must be two-dimensional" )
260260 end
261261
262- (; X, GS) = ca
262+ # (; X, GS) = ca
263+ X = ca. X
264+ GS = ca. GS
265+
263266 PX = Matrix (passive)
264267
265268 if size (PX, 1 ) != size (X, 1 )
310313inertia (ca:: CA ) = ca. I
311314
312315function variable_coords (ca:: CA ; normalize = ca. normalize)
313- (; GS) = ca
316+ # (; GS) = ca
317+ GS = ca. GS
314318
315319 d = size (GS, 2 )
316320 if normalize == " standard"
@@ -370,7 +374,11 @@ object_coords(mca::MCA; normalize = "principal") =
370374 object_coords (mca. C, normalize = normalize)
371375
372376function 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+
374382 na = expand_names (vnames, dr)
375383 G = variable_coords (C, normalize = normalize)
376384 return (Variable = na. Variable, Level = na. Level, Coord = G)
@@ -471,7 +479,8 @@ function fit(
471479end
472480
473481function quali_passive (mca:: MCA , passive; normalize = " principal" )
474- (; C) = mca
482+ # (; C) = mca
483+ C = mca. C
475484 if size (passive, 1 ) != size (C. X, 1 )
476485 error (" Wrong number of rows in passive data array" )
477486 end
0 commit comments