Good Afternoon. This is the data and my code.
Data:
| No. |
A2M |
A4GNT |
AAAS |
AACS |
AADAC |
y |
| TCGA.20.0987 |
10.353008 |
3.321405 |
4.60801 |
7.279213 |
4.605331 |
2.923522 |
| TCGA.23.1031 |
11.635772 |
3.666463 |
5.142133 |
7.048869 |
5.775611 |
3.052169 |
| TCGA.24.0979 |
7.954542 |
3.258038 |
5.025422 |
7.750161 |
3.846412 |
2.846371 |
| TCGA.23.1117 |
9.9715 |
3.596212 |
5.139928 |
6.206031 |
4.468379 |
3.002209 |
| TCGA.23.1021 |
8.971334 |
3.388706 |
5.256831 |
7.835422 |
4.415817 |
3.062993 |
| TCGA.04.1337 |
9.042876 |
3.269979 |
4.667723 |
6.763047 |
4.159804 |
2.974734 |
| TCGA.24.1852 |
7.952748 |
3.266449 |
5.03206 |
7.181784 |
3.780469 |
2.804569 |
| TCGA.29.1692 |
9.068691 |
3.542584 |
4.877798 |
7.580572 |
8.45119 |
2.993727 |
| TCGA.13.1817 |
10.19889 |
3.336109 |
4.709619 |
5.921329 |
4.546632 |
3.136917 |
| TCGA.61.1916 |
9.699037 |
3.40565 |
5.145519 |
8.360284 |
6.119431 |
2.965996 |
| TCGA.29.1704 |
8.336289 |
3.323166 |
4.957783 |
5.700931 |
4.06697 |
3.157896 |
| TCGA.13.1819 |
8.661028 |
3.307428 |
5.404119 |
6.553031 |
4.17892 |
2.934607 |
Code:
library(readxl)
X5_1_2_RSquared <- read_excel("5.1.2 RSquared.xlsx")
View(X5_1_2_RSquared)