Yes, I gestured at it, although the main focus was on plotting the correlations between input features.
Getting the number of PCs corresponding to a proportion of the input variance is easy enough using the value
s from dump
, because these are always properly ordered. One just needs to accumulate the list so that it goes 0-1, and then find the index that accounts for the requested fraction. Here’s something quickly hacked from my own personal abstractions for doing the list accumulation and index finding.
----------begin_max5_patcher----------
1974.3oc6asziahDD9r8uBDZusdY6m.czdXWsR648dTjUaL1CIX.AMSljnr+
129AXCd.L9AwSRFOR1i6hltput5pq5qweY9L6UoOEVXa8Fq2ZMa1WlOaltIU
Cyp99L6c7mBh4E5KyNI7ioqdu8BiHQ3SBcyYVIo46paNobWZoHNTn6Crp0Lt
H3gnjsKyCCDlwD5Sc.Krfd.GWJigfPpKzG6tvhvTBPHGf06p5u4VJ9TVnoy1
16EEsVqERM62X3FZQTRmJQXdkEVYhyr2DEG9XXdQTZRiqdlMOKqQyyZzEEt7
9T8Mxew9lhRLMA22Td3iQ6usGZlmKwBgDHJy0li8StD6C2mz0g4IkQ5NYZ7q
yq0I8jQBeWXQFOvzY0bVs3FnKPChPJQiklugnrCXpb1dabZvGB03Gntwzrvj
njr7vhvDAWTo86EuNbCuLVrbSZhnH5yZU.Jmo5R9lJUrSgJiPq++UdDOduEr
MOZcZhRIZMWnZtd3jFmwyg1zXzWQBOqiNKcMj3ROBKjFYYwJdtZpZUrdDP0B
EoowsEsuewgaDUhyhRRNBEEoY8KLOZ6CCz2UoRg6F5dqkTrrLwHcozoPrrf+
XazVviiqVx191+DOIZGWDJhLSAHvdggIbog9PQPdZbbK60H4wNjrV5kGD9wn
0hGzCTSmA4kGkU6DYueVdcz1vBQ61D7sEsaoP7ICn2noxUUqhWJB2kEKsh1W
fb4QTgn3gzOVTcg0NZMAfCw8ZtptY7uVsOTbv1wBeL7orbqeYCz52kuir9yh
.dLOWsl1B1rGwQIgAokIhl9a8F+ruXnTfdg.Fq+..UefatrX3XmGG+DgraqI
Ghghpa+qymW+OKt832misJJ2Y2KdfFFOfXUnHKlN9.w83sQ5ANVLDj.+l.I5
6p804FPzui2+9E5D3x50hAMDDjtaWXR60v56Tx5vmZr20MAdLZe+3CXTKSXn
A.nFHfGnWD.dsHvgMrTQ.5ILj1DTx6FZJRKyCpmGqcRsZaNxPuhnj86e+1CK
vsfstvcQqyRiRDUpBj.cnxqAY9nw2rd2nlPOWcW4tMdc+Hm570lz4f2YUC1u
pAlDUqCvnaUS4KqtvNcEm2L4RaUBDqWZRVZIWHxiVUJLtnMSW9r1TWlg4Jd7
Q6D20d9yOnb52MfzUUUBOHn7hKKAI2LEiHL.jPnHDiR8VXQ8uzBSHuVXR2El
f0eC6gdsvjWKL40BSlrBSDVwWY5kPPUVTiLq59xtB62e1UeaJxPXsxZyEWig
qoXKeOGeWr7OhK12GPwr5LvOM1rhmrUU0wl3TtnefhcuAJY0XaySKytXrx34
f77eNVQo2fpyHf6cAqxsKyu3EVUtRt.GpOxC6Qco.Bf56qvrqbYFAdu8djaU
K2SasUwUTYKDS6c0l2UCQnWBQhhkaL0O9fGUnYo2By2CgQ.JCQ.XBTEulbdQ
iNcDIB9dCX5b5GDvN0RNjimrhVjrv1m4P4BGGfMLHA6OrM9EHiQpWjJPffuA
7GQ+Qk+HLriswNMaRteuwljJAsQwsfJbPObKb8LbfGK4KP1TqEvwpEvIRKHi
keO7ThEDzYNiLDKiDEuhHDnis0QNntkMU1Edr96foDcwizSqCmgiQW.xPCgq
CkRbIdDOJwGBvXM5R6TzTZVnwXVnIDbgrWBSwzwpE0QfmlYDvH0B2e3oNtdO
2i4N9e+6ht4MFL.uw.S4Ht5BVLmHKpQZAsnCF0Mcv2PS3ex4AJb1JcikHUvi
sdjmGwSjtBmqkU8X5Pcnxfv.2J9vcIpvHvAMS3MyL2EVTv2F9LyDc176Woxl
oIJ3BIz2yuSSCcAllrZhj9NmhJ5UTcHZm7hTlly.SUDRumcATSF9or0EUkC1
kM6t2lkVbs5rmTU6Mo463Z8vcuBlKW1JByWZ3nsoe1U6Qz6w9rQlw7Y6UTAb
XnrNZluOzCSPxcFMjybRXKJQzMh41sWxqG6ioTaYzjWO1mWO1mWO1mI6Xeph
TK203J4vuJ8FO2yghrEsCM9Llxt2j2+qVvKlAMlAITL+3iH9Lf4ET1FyTa6o
vngfFp28FapS43Jca78bftDlmeM9n3YcjG8iBfNgKDEeuwoCOwm+wvOwmWxQ
tJSV0GvPR.T+x20WkIt6UdtGTxOcOSi3WdbRecvCxDO9VgOjaC9fd4vYeU7Y
0QrJiOS8LqfXdjQwYO86LN6U6WLNRcnSIAWikCyZ0cZzBxHwB5Td9EtikUY3
Tx64XQBxThDjyQKf+D9rplKCqEZstbW1vz.MvuhNY40XDi4BnxTsXPYdBdjw
w2SmLW.uc7a0iMuNJP3HqXjG7AqG4wkgEu4h+IDhYNLFgQ.9tdPrmlsqK82P
HzaxIsr+I5Q7bIScPXOHBxpeISB.do1JZpmk2DWFs1IKf+ecav3SZvdTGWY9
u9.jrFKB8P4C3gL2XYQ2GddV5yKe+OWzVrGgaPoYO7B0uugdXZuytA9NNpYE
H97P1sN8891ynw9mOahZrijhcxSNRJhtqiIewiDCOhQhQtA1DzaLiD9FLRLx
HFIMDesnWqSPsOGh1dMGcfvHYYBTySDlJCXO.Aiot99dpxIYjdjcsSEnQ.P2
hYBW+wNSzdjLKUOhUc0fbDa5GwjdGrn2OC5GydtNAl9XMe9Wm++fJlmmD
-----------end_max5_patcher-----------