API tools faq
paste
Guest User

Untitled

a guest
Jan 16th, 2018
83
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.18 KB | None | 0 0
raw download clone embed print report
  1. bcells <- LETTERS[1:9]
  2. lapply(bcells, function(cell)
  3. ggplot(data = btest) +
  4. geom_point(aes_string(x = 'response',
  5. y = cell,
  6. color = 'response')))
  7.  
  8. structure(list(A = c(0.982753626864792, 0.490259710510256, 0.454306062926931,
  9. 0.443880090600994, 0.992704372174903, 0.831160693384458, 0.740981059382211,
  10. 0.971324123908582, 0.589614636646592, 0.663016559532728, 0.0442355006911685,
  11. 0.758388810061299, 0.39969185826509, 0.96343122781417, 0.578266180477106,
  12. 0.935289565081073, 0.954414616390872, 0.476708144579943, 0.906912570353835,
  13. 0.860767420084079, 0.878055964477507, 0.717065411183562, 0.626679994549329,
  14. 0.00471648517899614), B = c(0, 0.0359489937221843, 0.0455022610469154,
  15. 0.0245991717594771, 0, 0.0150049906282552, 0.0357444181630181,
  16. 0.00409885247542489, 0.0153491030612378, 0.0116215258999156,
  17. 0.0971266806096337, 0.00523783384210994, 0.000104337240641022,
  18. 0.000475801870965878, 0.0388763858222573, 0, 0.00947456311935685,
  19. 0.091028293882243, 0, 0.00114639793715674, 0.01709111810953,
  20. 0.00642564686487351, 0.0122005596623948, 0.0735538728126912),
  21. C = c(0.00396910361917928, 0.3726373775819, 0.389150409858995,
  22. 0.236004149077653, 0.00654522233764124, 0.0757762646142197,
  23. 0.064467293054645, 0.021714367242937, 0.0510773710590119,
  24. 0.279742249706993, 0.228435750343793, 0.0163968987432784,
  25. 0.0386501968648076, 0.0147706021018908, 0.117796354856799,
  26. 0.0262705486829676, 0.0116437209145554, 0.249652632820836,
  27. 0.0708357724821996, 0.115182751748712, 0.0485081551895102,
  28. 0.0430306406326062, 0.0185687667917195, 0.062321917083855
  29. ), D = c(0, 0, 0.00728600019514972, 0.00320524248329104,
  30. 0, 0.0063037888029564, 0.00654538187729239, 0, 0.0176038859003177,
  31. 0, 0.0181870750390433, 0.00152581718814669, 0.00977725964480791,
  32. 0, 0, 0.00447626637015039, 0, 0, 0, 0, 0, 0.0453332704320773,
  33. 0, 0), E = c(0, 0, 0, 0.000475498116547242, 0.000291416366767824,
  34. 0, 0, 0.000108185143509404, 0, 0, 0.000585484789620521, 0,
  35. 0.00119989502426795, 0.000562924764494004, 0, 0, 0.000232527879948303,
  36. 6.96708420418182e-05, 0.000472096790474276, 0.000545274075130702,
  37. 0.000572161953294472, 0, 0, 0.0111234621378363), F = c(0.0113619316667346,
  38. 0.0761221446319925, 0.0940043097282167, 0.181463421237771,
  39. 0.00045898912068803, 0.0379484560273567, 0.130661228056559,
  40. 0.00273248163097645, 0.27374951093064, 0.0456196648603633,
  41. 0.311899809955928, 0.200378764906006, 0.483217874497928,
  42. 0.0162868512293491, 0.187555044444225, 0.0336927109381938,
  43. 0.0179346325967824, 0.141906152617276, 0.0167439810037839,
  44. 0.0137012129908311, 0.0297632632518369, 0.170891255992311,
  45. 0.210301640776889, 0.0808642159093989), G = c(0.00140289433926378,
  46. 0.00867420181911554, 0, 0.0103474797609997, 0, 0.0217237781037489,
  47. 0, 2.19895985703425e-05, 0, 0, 0.113543191682212, 0.00442851495302812,
  48. 0, 0, 0.0176396645397039, 0.000270908927614937, 0.00629993909848545,
  49. 0.0406351052576609, 0.00503557936970754, 0.00865694316409033,
  50. 0.0191377054890488, 0, 0.0115149714931613, 0.243819008858108
  51. ), H = c(0, 0.00293624962565618, 0, 0.0109784338152019, 0,
  52. 0, 0, 0, 0.0368789010169724, 0, 0, 0.0104630777433289, 0.0618086409502145,
  53. 0, 0.0252902404777352, 0, 0, 0, 0, 0, 0, 0.0101281816458403,
  54. 0.051238858176748, 0), I = c(0.000512443510029838, 0.0134213221088962,
  55. 0.00975095624379213, 0.0890465131480651, 0, 0.0120820284390054,
  56. 0.0216006194662742, 0, 0.0157265913852278, 0, 0.185986506888601,
  57. 0.00318028256280335, 0.00554993751224351, 0.00447259221913014,
  58. 0.0345761293821743, 0, 0, 0, 0, 0, 0.00687163152927302, 0.00712559324872945,
  59. 0.0694952085497587, 0.523601038019114), `P-value` = c(9999,
  60. 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999,
  61. 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999,
  62. 9999, 9999, 9999), Correlation = c(0.787379117728473, 0.713767273835577,
  63. 0.432941448432532, 0.654688521787571, 0.690623129562749,
  64. 0.72269025999843, 0.535092134674879, 0.795288368310815, 0.754840745986047,
  65. 0.0872468087627683, 0.760738916041899, 0.875990453791969,
  66. 0.878637700077733, 0.851326230903871, 0.458259685017224,
  67. 0.815125101981778, 0.299231595131615, 0.613359452217542,
  68. 0.424264050686203, 0.691764490900993, 0.806704730396525,
  69. 0.602426815978143, 0.786361339790331, 0.871574807143838),
  70. RMSE = c(0.698736121897212, 0.75020398425833, 0.901716663988092,
  71. 0.763690363629575, 0.758968447930353, 0.757909848657902,
  72. 0.8482750320726, 0.695776594753745, 0.668395739137566, 1.04995120161959,
  73. 0.654740332409367, 0.590052129521314, 0.484783647407576,
  74. 0.659059332792332, 0.890274043213301, 0.687194392331628,
  75. 0.966871968720401, 0.807189528281839, 0.906250907041538,
  76. 0.770762860306121, 0.704446496934398, 0.805908330153981,
  77. 0.652426738364919, 0.490900219800415), sample_id = c("x6494",
  78. "x1867", "x5038", "x5118", "x4631", "x6126", "x2051", "x0346",
  79. "x2056", "x4949", "x5784", "x7357", "x1509", "x9449", "x0167",
  80. "x9521", "x1494", "x7623", "x9705", "x4810", "x3549", "x6336",
  81. "x9699", "x8727"), patient_id = c("x6494", "x1867", "x5038",
  82. "x5118", "x4631", "x6126", "x2051", "x0346", "x2056", "x4949",
  83. "x5784", "x7357", "x1509", "x9449", "x0167", "x9521", "x1494",
  84. "x7623", "x9705", "x4810", "x3549", "x6336", "x9699", "x8727"
  85. ), treated = c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
  86. TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
  87. TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), timing = c("post",
  88. "pre", "post", "post", "post", "pre", "pre", "post", "pre",
  89. "post", "pre", "post", "post", "post", "pre", "post", "pre",
  90. "post", "post", "post", "pre", "post", "post", "pre"), response = c("nonresp",
  91. "nonresp", "nonresp", "nonresp", "nonresp", "resp", "nonresp",
  92. "nonresp", "nonresp", "nonresp", "nonresp", "nonresp", "resp",
  93. "nonresp", "nonresp", "nonresp", "nonresp", "resp", "nonresp",
  94. "nonresp", "nonresp", "nonresp", "resp", "nonresp"), dataset = c("sny",
  95. "sny", "sny", "sny", "sny", "sny", "sny", "sny", "sny", "sny",
  96. "sny", "sny", "sny", "sny", "sny", "sny", "sny", "sny", "sny",
  97. "sny", "sny", "sny", "sny", "sny"), OS_status = c(1, 1, 1,
  98. 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0,
  99. 0, 1), OS_time = c(36.5, 78.2142857142857, 62.5714285714286,
  100. 140.785714285714, 26.0714285714286, 99.0714285714286, 41.7142857142857,
  101. 151.214285714286, 203.357142857143, 36.5, 26.0714285714286,
  102. 104.285714285714, 234.642857142857, 31.2857142857143, 140.785714285714,
  103. 140.785714285714, 104.285714285714, 208.571428571429, 62.5714285714286,
  104. 20.8571428571429, 26.0714285714286, 359.785714285714, 229.428571428571,
  105. 20.8571428571429), filtercol = structure(c(2L, 3L, 2L, 2L,
  106. 2L, 3L, 3L, 2L, 3L, 2L, 3L, 2L, 2L, 2L, 3L, 2L, 3L, 2L, 2L,
  107. 2L, 3L, 2L, 2L, 3L), .Label = c("on", "post", "pre"), class = "factor")), class = "data.frame", row.names = c(NA,
  108. -24L), .Names = c("A", "B", "C", "D", "E", "F", "G", "H", "I",
  109. "P-value", "Correlation", "RMSE", "sample_id", "patient_id",
  110. "treated", "timing", "response", "dataset", "OS_status", "OS_time",
  111. "filtercol"))
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!