# load the test datasets
data(massi.test.dataset, massi.test.probes)
# use the massi.y function to calculate probe variation
massi_y_out <- massi_y(expression_data=massi.test.dataset, y_probes=massi.test.probes)
# plot probe variation to aid in deciding on the most informative subset of y chromosome probes
massi_y_plot(massi_y_out)
# Extract the informative probes for clustering
massi_select_out <- massi_select(massi.test.dataset, massi.test.probes, threshold=4)
# cluster samples to predict the sex for each sample
massi_cluster_out <- massi_cluster(massi_select_out)
# get the predicted sex for each sample
data.frame(massi_cluster_out[[2]])
Run the code above in your browser using DataLab