tsnePlot_old.m

function mappedX = tsnePlot_old(Matrix,d,sc,DimNo,Head)
%The input matrix is a gene X sample matrix
%             Sample1 Sample2 Sample3
%      gene1
%      gene2
%      gene3
%tsnePlot_old is a function to reduce the dimension of columns before Matlab 2018a
%The Matrix is to be transposed if you do Sample tsne for a gene table
%filtering and log transformation may have to be performed before using this function
%array d is required for specifying colors
%array sc is optional for specifying sizes, default is all 50
%array Head is needed for labeling Sample Names
%This function depends on other functions in the same folder
%function mappedX = tsnePlot_old(Matrix,d,sc,DimNo,Head);
%DimNo is the number of dimensions you want. Default is 2 but you can set it to 3

if nargin < 3
    sc = 50;
end;
if nargin < 4
    DimNo=2
end;

mappedX = tsne_old(Matrix',[], DimNo, 30, 30);
figure;
colormap(jet)
if DimNo == 2
    scatter(mappedX(:,1),mappedX(:,2),sc,d,'filled');
    xlabel('tsne1')
    ylabel('tsne2')
    if nargin == 5
        text(mappedX(:,1)+0.01,mappedX(:,2)+0.01,Head)
    end;
elseif DimNo == 3
    scatter3(mappedX(:,1),mappedX(:,2),mappedX(:,3),sc,d,'filled');
    xlabel('tsne1')
    ylabel('tsne2')
    zlabel('tsne3')
    if nargin == 5
        text(mappedX(:,1)+0.01,mappedX(:,2)+0.01,mappedX(:,3)+0.01,Head)
    end;
end;
end