rna = readtable("GSE53697_RNAseq_AD.csv");
rna(:,'GeneID') = [];
sample_cols = table2array(varfun(@isnumeric, rna));
rna_rows = ~cellfun(@isempty, rna{:, 'GeneSymbol'});
X = transpose(rna{rna_rows, sample_cols});
y = cellfun(@(x) ~isempty(regexp(x, 'A*', 'once')), ...
        samples(sample_cols));
