From d9d3a6cafec20bf50054df457a407f6d9769bf95 Mon Sep 17 00:00:00 2001 From: Chirag Parsania Date: Tue, 30 Jan 2024 16:08:45 +1100 Subject: [PATCH] bug fix --- R/splicewiz_wrappers.R | 15 +++++- docs/reference/Rplot001.png | Bin 21035 -> 1011 bytes docs/reference/get_ASE_data_matrix.html | 61 ++++++++++++------------ man/get_ASE_data_matrix.Rd | 11 ++++- 4 files changed, 53 insertions(+), 34 deletions(-) diff --git a/R/splicewiz_wrappers.R b/R/splicewiz_wrappers.R index 4713508..977aa36 100644 --- a/R/splicewiz_wrappers.R +++ b/R/splicewiz_wrappers.R @@ -201,6 +201,9 @@ get_diff_ASE_count_barplot <- function(x, #' @param summarise_groups_by a character string denoting a method to summaries groups. Can be one of the `mean` or `median`. #' @param column_condition a character string denoting a condition column from `se` to select samples. Same column will also be used to group and summaries samples. #' @param method a character string denoting a method for data value. Can be one of the "PSI", "logit" or "Z-Score". +#' @param depth_threshold default 10, refer `depth_threshold` of [SpliceWiz::makeMatrix()] +#' @param logit_max default 5, refer `logit_max` of [SpliceWiz::makeMatrix()] +#' @param na.percent.max default 0.1, refer `na.percent.max` of [SpliceWiz::makeMatrix()] #' #' @return a data matrix #' @export @@ -213,7 +216,13 @@ get_diff_ASE_count_barplot <- function(x, #' get_ASE_data_matrix(se, event_names , samples = c("A", "B"), column_condition ="treatment") #' get_ASE_data_matrix(se, event_names , samples = c("P", "Q","R"), column_condition ="replicate") #' -get_ASE_data_matrix <- function(se , event_names,samples,summarise_groups=TRUE,summarise_groups_by = "mean", method ="PSI", column_condition ="condition"){ +get_ASE_data_matrix <- function(se , event_names,samples,summarise_groups=TRUE, + summarise_groups_by = "mean", + method ="PSI", column_condition ="condition", + depth_threshold = 10, + logit_max = 5, + na.percent.max = 0.1 + ){ match.arg(arg = summarise_groups_by, choices = c("mean","median")) @@ -227,7 +236,9 @@ get_ASE_data_matrix <- function(se , event_names,samples,summarise_groups=TRUE,s data_matrix <- SpliceWiz::makeMatrix(se = se, event_list = event_names, sample_list = samples_repli$samples, - method = method) %>% + method = method, + depth_threshold=depth_threshold,logit_max =logit_max, + na.percent.max= na.percent.max) %>% as.data.frame() %>% tibble::rownames_to_column(var = "event_name") %>% tibble::tibble() diff --git a/docs/reference/Rplot001.png b/docs/reference/Rplot001.png index eb05085dbd89d448de12d08baa7aaffd55a80e41..17a358060aed2a86950757bbd25c6f92c08c458f 100644 GIT binary patch literal 1011 zcmeAS@N?(olHy`uVBq!ia0y~yV0-|=9Be?5+AI5}0x7m6Z+90U4Fo@(ch>_c&H|6f zVg?3oArNM~bhqvg0|WD9PZ!6KiaBo&GBN^{G%5UFpXcEKVvd5*5Eu=C0SJK)8A6*F U7`aXvEC5;V>FVdQ&MBb@00SN#Z2$lO literal 21035 zcmb`v2|Si<`!#wYgpeqbAw!~sWJ<;|q(Kxy<`R)e<~bTfQYtDLqB4adndd~QkWgky zM5fG{_PX>w`+L7{zyJT<`}=+UdY0cf8y8NzCwTeLFcsJ=mJ47tRw%U_|)OIKoFY=Ej3j= zkB7fHJbhSQmz2kjkH{3C5!n&-#H4TS?hSYLt+J+OV{2cpN}_VY?-rAI)7s$=cTLPEcAcUV`6TexrnM+GT$A^~{kJ}y z8-+Zrl_u_A)6iw3R#Q`B(=%?MUdzIAnV&|2h2<8p#)6-ppMs+dKcbWfxE36|%7S2J zVWBG{g!uW_1yCGPQxhbp?ga<$C;t5fdzAu)-S$*eR$5AN;`jNzKw3AqQ zea0@2Ew)_gWEXAj+(e9_3PI+`RQ)vPbg#fNr>U;KR!fL5aOi^l0^Ko zXKTD?M$#wbM@yIe2o-DVEq?REvUM(65o2A;OYDS%?;jUJzdY~s2Tr2wbILIm7M32P z61>FY$9xy-(q~@Poj)J+_6jPnR#gm`9ZpDzrJSE=I7@V0m{pBb$%ygSy-A(_S244TxOskX4)?> zuc4uOsvSd580I@aIli{}N`vj|OLVLRF@v!wk3IUh-S~W4W|2H#^rKH`LDUcmD8*a=JliXR$XG5$nI?Y2x1DI%TGePc*Bc zaXNQSYAS+Un6>)OcKsTT7g69yua!jSz>o&Qo$Z*Q+xdUSB`pwKC* z*-B>RRXVQPlY?oQG{nm@jWpM;T_aLyPBt|)9XB8TX}r{Pl~>2mF!=rZLqu76Zs%am zv$v-z3S5VDOiZqaD=%>{E6v9DFNo?)srNjv&q$f*+aEBqS=1=<{KD*coWJg|p2}Ep zUYt=AzKvxe3Eg*(n^EYvzTCvZLXp_88mrRfzsyZM$J)r7E>Y>l94qOM^(OSF7eB`A zp&%5!CdXDSR9T%oxzlUXwrK80w4D107k<>gTk@5msGQ$|M~q$mJ&i{rlJVciAX}i#Mrz_iRpWeIRva9kE$ak=wC&Y6H_qPS<4n~Pl z6Kd+}k9_B+T{HTu?%%&3d#f|I-8t0evkVIh^^qFt=c2W-Z7Mf-m3h31J8d@3Gz?{! z77qFpY80D|ZoE#d7sGxdJbcDjBe7w#fB=xgHRRYIzjsJT)cECU zJZ|nc_oV-!v#E(3y>Vhg{JyJ9&%d6P;0*Kl7A8AbWX8{*T6mM8yV!ds0f&@u>W^_Z zD13ieGd0fVw^mG>Gwp62*Xp#v$&rpto}Qi_Kc7U^CmrE^sO-<98P20_Y|Obd9`3(c zR<>o={%09tzpPs9a%{h5ZFzd=e&DlbqAzV563oaAC}f+MNGC67_$d*;Q~}^Ui;>km5{RJb2_t=D3%jR^Z!H zfmK#?7C9H)k;q&IKfj&u7-~+(irf@@Yx8xc%bzz!-ZfCPR@$sow01Q!vnF!A`QR3Q zyPCbzGXd+>%daqQa+)2pe2H9bHuUc8Th+5?MH3Pe7xiK|yr+MaKewz@2tRi8Xt#^J zD779pRYvWGGso8t$zFVEfIh-(qW&k9=gG@K3+BN#{+x2oFyt+rtTln zjv4-s)YQUMYG}qD?Ym0u(!i8|JDr5hN3NpjR(p^6;oP0BgL;oqi8=~g&1%oKy<$Y6 zK?0NzI{e_$D~Gn;#v{s8Mo~!U3F@I_?spler@))PMq;w>h)obisn{W;{VNbuO~l=bjJ#r5d4+H5)@u6_K`oD|rsHHFVwHGsXvCG~zO$l=R%WB( zu6loZ7xL}5`v!V?myjqoY&Uo|mhv-*S*fh-B2~kqeY9&f$*eIlGQzuem2k_pJMBw1 z3suhj+BYb`Prq%8S~1EGJyB&LF}ra0&K-|PtZTI7`ChfEpDx=%5`^1cIUGaTFKTwJ zT7O*lWc7_H(d-NT+FQ15dzbWKYplm!qvsYE`D?QhghR5xoKw6(W|eu{GodM*{$t4b%S(%Q9ok+k_DIS^AEt=E6B+6C6#qV~ zb@1SXLPl~jK8l)}I`)jY|6)#yn~3Sht`+l3K?(h$6I95w0zan$~Q#x2XypHv9hu*JLLmuokYPk zYgAfZxR5zyhhFb8PkH%a?7NpWW|2`UpSZN4{pdS~=nVXYx$ug))GgDbL}NiD&FX^^d5S zxa0!j{D2PU=JKYRPxwa8{Y;9xdFRe|>ESTh&a#O*W#%vqs(8CgQ&m(=Vl&1IIUnqf z^0MeYzkG@q?JDI(l?>2Mny>78b@pqo^fto?!CzlqP#rgQy=&7NW$yPg=lWl`RvdZD zdgCUUvt{@;j~Z+(a@)oS62mJjBs{1s54R3=7Vmj=u4C}b5O%Nnfwa9sW*=a|8&umz z!t_LUf1LjtM%ni6-G8V9lzjhmhl-aFI?{4yfVsY8+b|cn{OrwUG|oL2*4}Q??%5w> zSnTDRbFm3H&Sz<^KeoCp*Rfi*%O{AI$D?f5Fv@2|cX^O+tb0mJ@2G=YJ{eNlF1&fG zM<_I#7|T$nBNBx5soWD167D>F$W=Fym6dfTICynkz-FV!yZB3{H3F_D=X%@kzS_H& zF0Ha2sDJdXJ^#Yp%B#%V8yXtkZH@Ce`fVD=7XfmoJcxEXj>YkFC3C0yhB8a1?UIU$ zOt5v{cVrw|g^RtWj>h`^Ig>e&fuqu27k50Pc-r`hX`$OY;5)J1w!nr}ea<4p9q*C+ z{)n~-l#Ju32~QtCeYy=t?YNoGxO&{gYXthcx3{+zKQ$f6nYE8@daT5sV9_Z2Zkc-< z;H_@`rBm!usCKshn=Q(JU-|w+PxHU?0t%s8NfR-4Hgy)$5WBZbv|LY~+>Fs~c(Rr{ z%*=&CElmH+8Ih2XkZ$LEg~sa|0_#{=S$KHFo=dvwuu*TJW$u0dXX-gSn+g@d$yo6~ zMm@Cc+`h9(+6e~*>4kYHSm*912+LjgvF2l(GBZ&>G!?5HReQNH=}6-9=g&Kb4MjJ+ zzrTz2%$YM}5pKya-Ran=U?>`SP^r4dsmxXi(U8zN+!C6wd1!IwR{q(Ir>;`H$&=&g z?X?IFyIgy^a=gV{v$-{AYDAht!9&6z-MDYp;+GdEQR&UhZv+R1Q5^bigL9Vr?AfJq zi?RDjO?H+N93;X;c**D9ijEGwbBFEH)vMpCdHvPUvXsn^>;aH_Y1c%Ld^;t&$79T5 zVXTrlwpx3=%S7zgmvq$1i0+~RWT%$7)s85W_jX?pI{o3n<$(cPTPe=huU}h? zwC8gu`zfG@{HA~V!AIr7ZQE|#%C-b>Td0wBM;0hVe~i zOAb#OY&UDI`{lYiD%+;cYG$P4p1iAF&V&u#8v*?&IeB#uE%O_65mzawXu8ogOp9iF z&zxJsC5I-Og+tno?ZClj+>mPM$-PiJLHZaokk)H&N7go;#h+w zZ&Sh2r^>5*2ah)G?y9}X&2)!b*=$J0E)k!CCnC{R#Vt*4eO*;$+5F51D3rn>Dj1uf z=~h^*L9s^f^7G1`WYoZjXywK}$aY!${{A-B+TfYt z#X6<=HCwi9vF$9{O`cam-!!|$%zFo!cP{jQ>=|fClym#Vu{51q>KQxaBLBjwivCx7 zKCAy+t+}14zmdTP7fVZNV*?wh1pci_%?_U<8-KnYY)X4!-y%lhTWnaOW;l~aAzLd} zG*CE%GVG~P^~KIpMoX3b`LrAI3(KWB8C}?8Y)qe9P#_pBBse78ei{DiEZ#(n)ryyP zqtbXxHfSQM*7ES&U^n++aV#3Y(vtrfnRp|XHz$Lec>{T{kr{Gx34nM#=!s zi67;*QWdsRRw!#sEug-eDb;SyME_ET7+oA6iM9Q;}ysuz+=gyr~1cH51VXM4+L9=V2dX6J=3dn?z z#%nb)4ukCm*{45P43+P|yIm3Qr1;w(d zU(`-YJ4PfuejJY`#xVDsY0gBHs8OKSZK1`UoHtSOf#;f^ZEVeTWJY&AhoiEYOb+YU z>kk>Hu{ORCa1mv zKT~9v`tz2_XlJpmkp>$>P@oe)J~lely@Jwj#~2V#-5Sn3+YYQMmsi% zoUE>hjbm=1mZjDu^4`_<2#cx>cDM_?vTym5!^#`}tvXx)NCQp0MDz!b!IY%u*0mcZ zhg$0Fzoumr(4zoqqSav8xbfQh?FOII91?09gzXAcZYHw;>0zS-o9xm#4?S+;my}$0 z_<_{L5+15hPSz8CN*{fvH;UfBufxS;dss*<>B*z253-dUk4L%^68K+NSDU*zZMs#8 zXc2zAGeC>YO?8EC``h4otokqbw*Q^l^#701`#<&xD&hqJ79bl-m;P+0r>9qo+KZ-3 zr_gPAXNkjQKC6ArzD?6R!y}iemx_j zjR1uB8A_U10hgtqR>f6bzu*@qt3$-plhGUkA#sFhAV`D7G&zhSb&ZWfzI-tRifQQk ze9+n1IlZ%ukG1UF&Ye5=A3n@@;6znb6&UZ+*nWXI@T`?QT0&Mz?W>nC7d$S(A8z>{q}8>57Akn|2^WnSzn zwo@j0M|TdDet+i0RNlwT2GMqpo9uR4R$RK-Nu$!l98R@*P$^j>OY|hL9A7abF~WRq zq)sdPLvuH6Q}Z;FV=7a3NC-VqhQ2ZwwX_Gk^;NUX>YmE0JH4mR9=b0{Eue9I%+m~n z`UX+M?p?)a8lO7JaR~z{dJMBW%W>f!st(7(0*gDELgx3aA7R!<(B@Jv&3Ja*ynpDa zvF|kt&o?4$ioq!8i z&A>20*RLWXCU!+o3;oYbQKXJwt>m`t+k;+pH2v#jV8eoggV&ngkcbdG?@w6#=X259 zyLTisCAHM~^_w@81X!Xvg&A4RVzZ_$KD;{h$sp1E(*=NQGZ?@hyByIY1c!%f`uG$D zyu;52HJbpVsD zJ}Ud1AE8eodFJ{o>w^t_K)g-Y2B|obIj>7Y4>=U8V1%%v#jC!&Jac19=X*sw2M)X=y>K2hnArZruj53223XA*{tX)!z2 z)6To(=#Rt0SGsafK&nV&3SQJcH|-0 zwhhVOj@yEfyN=>m8J^Gs=)aPiUteQYk5UojqPj<^9U-_d-R4Lx>~6PT_x`Tnf7qD6 z(l51%o*rAL-@F4E0gscCR+1lL4##ERfde7rrnSCu*#6I^p)4scFJzMs;|Og1Clu3? zlgrRBh>$5?lgCr-|1Bo8Gh4oaSKEN?+>iEF4VP{bLzRbq8GWq|TUFeYjsP1FI=h*N zDj5oyC4W-MFOud;oDkgro`4FW17x|+%8H*9aE&6Vba}xoCF%_kehcH(FZ`GNTt?bA zk|M0U%Rs>SZ*MF?jolO!Su1^%>bRNN$Dx3?wTaKVAS}z08=2tsn#t|4=h2U|VXX1$*#sN6gal)c@g2lt9@@54AQDdaCfew zp!}3%50>{zlR)UYE=!zIne=+ zB4{YGecEO7QSHo`6dS)NF;mD$4G=}%qxAz1JbmKDRc78dD2R)%l<1kFYO5%`zW0H2 zNI1B8U52)4J;FQPIHv*x>kFrzy`q90J;@fzR*Ubw3BYPQR*vCHr7{FSGNovyfm0e~e5$ zjia9Ls)x642OUvfWLsXEDYc(UPdJ`wrj+>P2y}*6Meknhss<`n-1c-cEiF2Td|%IM zczAf|wCV{!R|joPi)44V%Iad{Pc@|a_ouT5oG;xHqyq=WIJfu+$|uuRDxuqSAUqOk zSu`T8+1S|=fjk&X7z$oZrO5|`bMK)c?nzpQ*gPm?@cQ}biQ%iW8_hg=sIeJehdfD* z_NrUlGPPalt%XOAMh&M}xVgi&9E`j)DU)Z2)EB04Y)HH*%oKl}v2U@J;>+dM<1X8G zWli}_zI{bcMM45kI2NyGR-9aWg_&0@S(2Z$h?p{}c=t4opAG}tm#P|DYIN=hna zpSn6V_=K%wlKGl#vy!PwlkS1MIvK8brKV;-Ds#nI8S?TydM>joL?!Cjo|liA#Tuyr z+GV*88Ibv^e};%f0|r(GT^3Svyf8g@&&{=xIQe~1GLn*#a@!sR2Xji5#!>kJ4(jUY z5HZ^Q_c!2+;bR3*&R{f{biWO#&v>INJOCVB=&xUA<9?FbMQ_OVg$^zp@1XB90^Ry) z2Bd8xZz!X%KHKI9z$BNv%WB9x)gZ-sMt=Zja0-_4Qn>&8ME&*aR}Og>;olPzx3J|T zD+xcyKu2M2X>=k@*;yH~sE~)^zOsJ_nF|?eT+5J0@_s&zc4|B(JbR zsaZ|wQ(ogZpYMH5*I>Ptt`F-a>&O!+Zq9_pG&1tXh3Ztu3-g6q*ejaqQHlki>~3(x zl_bfz@MkD<$xM;V#cOX~D1$7c5~t)#`N9rQ*5KPr@vO=21qe}KVUTP8&jT1hO)^UTPadLBjs3Nk?J^>HL6fHJOH#v!2TN@HQ9LN zc|EZNjW;%4&HD{%t~wf{h=_=r_wEHBOVajyN>zsR7RDl=VNn)9fz0YB@(`cTmv)?( z8ERp!yuuh%WmOIw_}t~^QPN^T8dS#NA|b2P8|2&LK5#WWHxwOcN@I@{HR{c5O}Pk4 z@wI(sF_}kMIzu9oV=0Pk8~9N}k%KC1%)ouT@LTj!fMte209}nT^P+PsU3Bw(@R+8i z$H@X8N^a-e?6+{Tbej}Y&elKL2PPo@`@+-1(Y?r@vDG-2vmmDj8wJS~)yX7A+H%F+ zM%q2!&Y_vtL?%@X&(6xK2Vwh1N=r@cv+(Eb0qo*t*P->C?5Vg+62b67=@=MXL5Myx z%BDGP?wiwZGtlYT&y7$a!WDi8D-Qxl+0_raZakWMuH!jaoQ0`O|0>oa3O&305p}ae z=F9X%9@Omd8i8<&ic54;XClb$OP(o?pPw4Kiek|X1S01;$o9)^4`j0|$UFj)lAp5C z3kJPCmFjrmGjaLq)ssKo-(Lw~MekQ+2v5|8@3dVZMo8kN31EKe8@NPn1_@09-gm_5h!-Bq3CW60j?z= zo&yM{;shvnl#QC0p`G!aG!;9(A6amzp2JHWB|pBw)~?8>n9>8LgqnBn3cfFB^7^uY zdNt4|sFIs#ejoQPKX)uFk8$a0TVPvvMGNm>8|CT`4hVu*ZNv3L;>Gka+DQdswn61O z!|A)Iz{!Gh=@57Jymnj+sY3qqV^i1#ioK++H;zxq)zK_tY?sFjY9B8#7;#-FH zd7S{5js8HB{gum^&jgaJfaZNrFaFI-HyUAH{?;gj}A4bo)-ca!s99Zo5x*`39>_d51dMF}t=X+NnreMyyj9pj< z+YhhwI&}E*Qzb04I!#qyNYezb5*M1;y_sgkfGXn^4C16}v}7B|DUsF`;@;`0NhZYF z$Q`U?LiD5SKIjPna|}v0O%|OUfwzY&BS0QwKRy9^C$fvuo%)C6_#f6uouS&BzudgT zq8R&lH^(p2F)&o#5jjSdmfw(&SCWu1trOt%Lv5SQc8@f+iHfc{`Q|zc*|VTqUOD9H zRI>n8Bsm zUv5{{IKuYs-!E*;n}BBFpGls^hH-BKZQ>vAyC_UyOoj0x-SCXPAgdk@1H_pV|BlL! zm3=)cvoKS-yq?71ut@yv6ILD;J@M+$3hFMNe(?8UvVG7QI-wgvCK6aYf3@Z?xD|2( zMO4MOcV7GaS+C*A-!3;ip!VInu`()VvSL9NH_SfGh|d4&&&H&0Bu1=7a!h3{rFC+1 zdu85&bR!QtnB~IkIMjgppDuYYIyB@uniqkVKp&7fjCZ9D>Y|cEnaUh$EAib!!^pWR zOyiq$G2#b2($y-faeMFY{=hI0g2*pZ^RHg$VQL*kp@|sa9!xzOlqRsv0fYY5)#q{( z^YXsf8>^~P00=|R5v{!_GP_RgWr`5q1mrN&PY0(*I$gY{jNYIE@AHDFHQ9OI|EA({ z@vKVPqXs*B_d{tQ4~C{7z>M9`5T=(o`-Omw4|HGL-2BXFHD2cX6bez<>1-&C!keee zLYnL@H`y`TMcc9c8qP3S!G?!jHddVXPlmlFZwC<<^z@3bl2VC*IlrFr>LDw5Twyh= zz_I~Yem3_17T=w1D9W+x^mVfLBC!&Q{DBXBUceb3YWSQ0ez>RPE06Wj8+JA=a484l z@1P7qiH#9PmDH6{n>ncSPsUV#7_-d$RLXzr1EG=)d#6t4(xb2FHf$a z52Eed#m*SW}7^9&pm4LlQ5U-Ale?g%?Fa zSz|$;hmu2v>`HNyb&UNVr{+KUt*IZvGkaLJLy&~B_zwDiPo_vW{9!!azjl%bR$+0n zk*q;C{;_IPezbZ)!Yo!Y#<|_wR|q4HGB&3yQGq>sPLNjw=h#0l(bL>|B=$8rrEi`^ zzVmK|=?20ffwG+*RQSSzv9LJeTu>4y(^vP=GFL>#F{|r7$Mf_I49uJr(cr*~Bcil8 zd5qNgRsDV03_<%R$jkdLDQp0`=<=IqBuFoy92XOpg2!4k%x?mz86@0COvq3qbPRO@ zxEVHd*I%gX`TpsNoX@PpFSq$EEw`hhXaV;wQqd;B3R+>dm6`_fK{5|%BqxE=P3y0_ z(g6Yt3tU7Y41k zJPxS1XJsnS%FsSJES+VXJ`1EPVfA`72wi<+WBR1VYhz1t4!!0tnsWW$kplYObT>LrF|67(&>==I(Xj;$a1bZjxXJ09m zfV-h$e8R8|q$=7;-#;YHq!**zVp}Qu`5)f#f90xFYD}+uch0vc?jG57@q5W>aWaXB z*5<+6NharZ-gabaFy*|T+K6P%j$ccTWV3l$4hBM}EmQ0~JZ5Qq`@{mQjlhSjv5Ov& zHBOeie`pr0{>I7S44DyTPL}!j2M9GFbP=#{WsBt>in%!}WmXq^SC;!JT?iW6-u z_nlYmEfmp*p582B`T~v@T7YevX*zr&e6^C-HBQ!;)0!Zq{+>rKaj~)|pxk1%awuTa zo*CCNxCV=u?$va?d-slX_L1isWWM@8#~xY|dVX?woV&{?{#$O7Og3nB7fP3BmRHvE z0LuRXWA{T%L>Bgp%E5& zBI^_#nOU;3BuTHgeM<(1z22+_1A3!iPzVK3_ zeTZYH)he#OK8{a`v>O;V(b(8+d+E?-g^mvgga`m`aT)C-UA5%=LI`?uI`187>?hf! zs7*XQcgK4E*jSpGn~+d(Ve*850gbxuLZ`;br^58`00Gg}w~@r+(9{A_J&X+(=BLY( zg(a%0zkQkM`j-2xdK`^tMV~VTp>c!jns$u*BiNcjgZF!#D-Wy+D)`x-DWmwXSIu)jiHF7`Om^f3=b#sGNY+1Y~2Li5OZ)ln8ujLIs^7 zDEEqk+=pci!qUA<3V2wG&FTcqk8T;c%jN|5;W1vt9@P32;}#e*dS;Mj6A=0J>=o^# zAgnhGD=&?Az#HMGwr}5uOTmsKAclmqqs1OU=hN{R>}cPf;w46pr#k z8wTdSY?gVo+@cJqTleVEKv<2giG|ydgHK>+;szvBt-&6r>Tf6AgBpqBS+#Ab9FdWG zF_M830%u@O?59shG1J5eJtNArS<&O2uUH{pOlb*BKV(DrFqH~!-m{%W8v$PukGDK9 zNK=PPoa9z6Ht7l%JTEj(YBY6QdpkiGXG*%@U=*YuGcz6tpWrUO(KR1zu$96%1~s(% zn-3qFB#N(9d(4xnL?-Js>bf^0B6@da;)62Lv=*n_x*Yy z1D1|`$Puu5qNiGRGE&!7P&IA5kWXs#{=3)f?t_}>7I!jjq}>F(4~1R_^K38kD_;Kv z7NF0W2go8&Q9>~oLi&KsCNO_gU*hXclwl}sFki9jGU;=|IU;Ay!22joBw~Y8j%_7W zP`P21^o{%pk2F5o5(5=**v-CYW@fI&91$Hsk}lv3eIvCFA6DPHmlEb0Q1kt}V1tW? zKamI^34L+#I-C1YGX&r zT*&q+=0W8m2}EQCG#(|3(*-SzQwwq;$cBIZ&UiEc1+O>TwmL(Pm(?u11|%E!M|`~H|H9vZHgIfpql_&a-wW>>7}!il1Le-NeOI|IITWC_vR13`b8wCR96gXbq}FnyKc| zqw5OXhUtk}oME7QZxtzUQp)?2bns_0AjVU$Iww%x7G0Ve*9Z0ad) z+}ITVKaFvOp09+N2kWX_48C~YC?X{|Q1#jG^^coUryC4?O%XpgL=Knu1pA|CMzxPe zOPvY)_3M|N{V)hrOkhwDalX?=IhH%^n?>O?7Lb+AZFMDKE4RE0L7eR{?hLpkVTZq#r=cH(i;8 z^SR;WnPX@Y@IxeA$R?D@^lzZl%!}@F{!Z2|Dgp%1g}2NWC^X=}y1#`hPv7^4RP5o` zPRhSf+?3j{+^w#A&6O-g_5Bp}#hYwRm)ub#fW#7C8{c6heRP*=Z`7bBK zn`Vm((N^Kel-b;GEpm4sZq*+yuIm^zE$lEGmd95cT(DYcNF%>&qKv0 zI@oz%(@veEE{I)IBsLB-NDk)c7E# zu-NM`JMjDJXa~f=xkIH~VF|r)H+MUKUmfc;C_?hvN*!lO78I%Ey0m@sW()|~n~`yo zTUk`3a41fR8*-WK1~C(kvDS;Ji5H9_EhX>o{j*>KmWs3stO&(h2HMSO!ZZYck1)`4 zy?{v{)dt!upYoMTyBsgEYYcz+gph>zq9QIZ*^ECV3l63X&l@*smW|9eM&7wIyUGbf zy%c9yi)-vT|oN0 z*z4zyik5af6NC*>cH!NY&oi{{;!oe6vKyl?Ig!dkJzTQA0a(NLM+|x=%;&7h_m^1l z8F81<1W~k@y2sRcifTnX$B5K*uH8pnIi^Rq&X~4AJ$SQtQ9+p>6QpH} zd}`;{ZunoVYL`B5er7QbybX!)A{>Ptelrn!TX3#*;JE|8BUsz!W|anccDZ{YI^MMJ!XQ))FhT~$NFdjp^L z6MjNBH-!gKk%*dEVT=HML;CZvhVk$>lWg3LT8CK$f?&xe?+d`AxUE2eo)VB5$`UWE zh#rs^NrOR6)^)VzAQFPb!UM0z(Yf%^I1wmHOz0cQ;RnDD7kTcC(j~9S;WqZnqTlp# zMDe&c02a%pO`)*!?9FVcgxwY!K-MOxM`}@;s&DF66|AL_3wY(&MWRgA#0HPUqmYk) z7BHW=N?)TK6B48}PAcd2y!CcD16`%c&6(!n&*j%${CgDvK*#?RgPO_=)dGkF<4`yP zK0k6WFO4ZLAg^-q>zBH1C{3>iJ*QO5Yyk&YX;Y9O{N=eN6-LndTXd4oJ1_rm+`Bih zt_W91Nx;sM$9rkDpHO|3$0{zh|B3O`v(0H=2!m2UML^Mr^Yrp zi$xzw0el2oJN+OsHg;rghehuHg9l}My-jPC`4Y5auNQsu$JKUX;+ z1507wySwD&Wfc8B@XRDXt5rw@FxzP}+dl7N)$ z>V^QTe!hmBM!LhuVI9!+Yn)vLkHU{akmC;npPq!a6yfp`fRL3EEmO{a!_owA<)XCx z7j=n=tvL+_)xU{|8{6W+YsQ}P{e<8ZCemIuoF{7?XZYUnKA3`tB!71 zw@6_W+2bOw9(CS`94`iW=QL2y7Z;~g#1&PmpBSfp2Se^{6+d0jb~kw|sxflI>dbi& z8H-TCU@Z0Vy=u~MP5-`)z&P|k3Ih~$xPQVMxPC(59*OHCQxojln-vtefC)9cyyQ=R ze0UAlmaaVvfK?ou(F1NdQ*7Wtv&#!?a5toFO_(SEofEMSO#?&cmYs>aLvK>`L z^&LaW@4*DUSuH361FSHW#umA_F{AK8A@6f?Rmeh%;9sL{R;iN<0kUvemtDu zDkn=mh?#ID6aY-GaN`t`1Pp+j<)_D5aCS~{9{Jgx`|6by)En}~9)^Y-kz%GHz?j?Q z{rRgd1$*6zj^0kZJ|#KTI*RX_&|rHCIN2)u>uakQ`&Csh!sU?fHvFK_{P5wh+4=c{ z`ucZKB4Nh6g$Yr5LQ7lQuUnp(M?si)oS2x{CB0?q)>_@`bahnRzd zLl*2q6q|9K#m!{AQ)~ugS%)9R#Kc70y2XcIBfGDMhqDus{!2b7nVIZYEBW;G^(j?u z@F))Q3_)(fU%B@PF7IX0PYGHWo+#5n@@Nxv;#bgSp| zSDTJSjc}eFuvGB)%J12Ok60rd0DrLJpq}yVU>l;)&ZN|@xLV27)HI=G$eYn3sZj(0 zkqn6NKC$Dh31@r?Yph!joId?@-W$SP%R`VV4L@Cu>gaTz3&qzh zHWSC&n0?z}Uef-p=+65^2(d_5RYMD%J`;!UOIjZY??3X{+~ktFlnN+2byHJrGx827 z4xsDy+SzSuZEI`z@+BA>YK2>I@c0G>1>L%H=kbBV9sYCkFrPV1{5T8_$m=C74NWg@ zfuVlv*s;v&BCn}!pFVw3Xr1y>eB74F9UdMIYx0aO=EW(+%!&q<%uGyvxn93=g$4_k zIZh5eac~SY$ej5k__?{c!2X!zjQeP36{_<2v2NAOlSxmXS^=PwvJ(^2bgTAf^EDO; z6a_wWk^$ZnpGfm15&z-^3&tO*2p|xTsnD>nD!9zA6bYGAtRVm=&E^lsDr^K@HZ*?E z)zy_CU4BzWacNiPp+Y0#X53lIVE_z7w3GBg>EiUJg+*WS6B~D0sbzi>iJ1qQBM6d~ z1XUC6m+?YgUY?_DQpbs9LjytDIaO2wX6mxB)&!Amzz|yX>165EMdKTv9{f30z1TAl zI%Imr{F_^gV!MwKkPf=9AZmsU7RbVR7y56sScyHshj_QdrKP1=<`^p~!D+=GI5sw> zWWV)jAjKgm6|j~xxEae#msuO;s2RFD??w&rj{Nv>I@2#nJLY$*$=6G6ukeW*L$dR#8`gsZV8FC@Z}lk%qga)r-MJ;i{2JP7&JarDJ~R(m@; z%+u|>@Z(U`l)IZ7RUGx6Ei@Bw=j0`z8$WtdH zZju)OK^iwSU|L#QA{TFPaIpQ+<4d0&c(szZ2!e6uYB2gkQeYjN*rtci!99j>B_nBl zfBtxh8fC2l%3UmQ-2?|}HIMfiNKFV+K%80Z)%d4_;($`Zep|n)|7@o!!`(?p7z(sT zRw9VYz=C)IS~tzo8wWpc!e|_2#`2XH^VL%(E;w(vUyGd5((FlONm6ji$;rv{TP)BV zBfU8o2_fsaiVA__GmfTx^Nt-K7Jo^Ji7^3Vjrf9(+IjNL8r&q}nYr}#^tUa3NO$m# z?6t7i9P2%@8!62a{irX`F1R(WGI8&PYkYnIh`8xw_sr|MI%eF`Ciun;4O?4b+yN;R ztsb%;IcAD-xzEhZtn`hZ@@&#`)HN{ zL_p9utJkcVG#qP+Q#bs6_-#8Y;}#_j!zB8SmF=>(PvUacLgkdoXHg<4?+c7(^lzWG@>?leFdKQnQ@ zLr96_86c+IxqH{MBXGoCDK#~fY@l&p7fS3XR1T#fspt>n!~{7`1qKjYOyM#Q5ucT{ z4s0dZWR<;p_m++v@K}qTsRF+4gMWsf-zvu#w=y|^en!l#&=gHY(c*Ml1kitWY4Cmz zk33k7^|+X>qLsy+OroI09#B*J)atV})y?>~7m5ozj-o!vS->3D_-3+|c*5MCTx zC{Dq=p-oLqO2^O74{{I@0N77LQSvrr#AadP)u>M7*@OKwAU=L`_!6OGZq8iTaRavy zi7zSPVPs^)9ey<8s>4D=avG^J1X97)!U&=DsCmb!)2AztCUErdbJ8s0=cfb%I{I3~Aj#Fi zBf504KO#5&TJRF}(!#_MK_MZpm-!nwT;1Hfrr24?EJj+f3=B5BtE~myro{F{NkUm! z*$4CBq~x(;vd@{1eEDf&Cuf*a^@#m4b|L(3eMbIpNk{?GPOf8@2J#siUi{Vwr6lU|x~8h*F6E4?CP19lksm}jdb9$DtjGSr3L>ORNFJ!z6=69LC``j6cgJKA2 zEBXVRWHPutRwZ|h7;-k&PtK{EP+K)TJWTp#Z^gwi6X?dk0nufc6~nPGG=;kon5ky$ zFOB15Wog)l;l*w8G1_Q=)zltmWN5=jp`O`Ni=t+YNVm#u^Zr%pIdPhfk?}4-$lDJe z?!qQ{t-M2sHZv6Qj1Lu)3d)&9hmCesy tOP)N6I|(!_@9Yd*N#Fm+GxjpYLB6%(RL|CM;9ie}mb$iD#$JoS{|h2#H*5d^ diff --git a/docs/reference/get_ASE_data_matrix.html b/docs/reference/get_ASE_data_matrix.html index f05b607..fa87ba5 100644 --- a/docs/reference/get_ASE_data_matrix.html +++ b/docs/reference/get_ASE_data_matrix.html @@ -55,7 +55,10 @@

Usage summarise_groups = TRUE, summarise_groups_by = "mean", method = "PSI", - column_condition = "condition" + column_condition = "condition", + depth_threshold = 10, + logit_max = 5, + na.percent.max = 0.1 ) @@ -88,6 +91,18 @@

ArgumentsSpliceWiz::makeMatrix()

+ + +
logit_max
+

default 5, refer logit_max of SpliceWiz::makeMatrix()

+ + +
na.percent.max
+

default 0.1, refer na.percent.max of SpliceWiz::makeMatrix()

+

Value

@@ -102,39 +117,23 @@

ExamplesSpliceWiz::colData(se)$treatment <- rep(c("A", "B"), each = 3) SpliceWiz::colData(se)$replicate <- rep(c("P","Q","R"), 2) res <- run_ase_diff_analysis(x = se, test_factor = "treatment", test_nom = "A" ,test_denom = "B", IRmode ="annotated", cutoff_lfc = 0.6, cutoff_padj = 1, regul_based_upon = 2) -#> Mar 29 12:40:36 Performing edgeR contrast for included / excluded counts separately -#> Mar 29 12:40:37 Performing edgeR contrast for included / excluded counts together +#> +#> Attaching package: ‘purrr’ +#> The following object is masked from ‘package:magrittr’: +#> +#> set_names +#> Jan 30 16:07:56 Performing edgeR contrast for included / excluded counts separately +#> Jan 30 16:07:58 Performing edgeR contrast for included / excluded counts together event_names = get_ASEsets_by_regulation(x = res, sample_comparisons = "A_VS_B", regul = "all") %>% unlist() +#> Error in purrr::discard(ase, ~nrow(..1) > 0): In index: 1. +#> With name: sample_comparisons. +#> Caused by error: +#> ! `.p()` must return a single `TRUE` or `FALSE`, not an empty logical +#> vector. get_ASE_data_matrix(se, event_names , samples = c("A", "B"), column_condition ="treatment") -#> # A tibble: 99 × 3 -#> event_name A B -#> <chr> <dbl> <dbl> -#> 1 A3SS:NSUN5-201-exon3;NSUN5-203-exon3 1 0.996 -#> 2 A3SS:NSUN5-201-exon7;NSUN5-206-exon6 0.879 0.908 -#> 3 A3SS:NSUN5-201-exon8;NSUN5-novelTr003-exon2 0.953 0.958 -#> 4 A3SS:NSUN5-204-exon10;NSUN5-202-exon10 0.955 0.941 -#> 5 A3SS:SRSF1-201-exon4;SRSF1-novelTr001-exon2 0.766 0.877 -#> 6 A3SS:SRSF1-204-exon4;SRSF1-203-exon2 0.963 0.916 -#> 7 A3SS:SRSF2-202-exon2;SRSF2-201-exon2 0.988 0.989 -#> 8 A3SS:SRSF2-206-exon2;SRSF2-202-exon3 0.165 0.159 -#> 9 A3SS:SRSF2-206-exon2;SRSF2-novelTr003-exon2 0.988 0.981 -#> 10 A3SS:SRSF2-novelTr002-exon2;SRSF2-209-exon2 0.0530 0.0596 -#> # … with 89 more rows +#> Error in event_list %in% rownames(se): object 'event_names' not found get_ASE_data_matrix(se, event_names , samples = c("P", "Q","R"), column_condition ="replicate") -#> # A tibble: 99 × 4 -#> event_name P Q R -#> <chr> <dbl> <dbl> <dbl> -#> 1 A3SS:NSUN5-201-exon3;NSUN5-203-exon3 0.997 1 0.997 -#> 2 A3SS:NSUN5-201-exon7;NSUN5-206-exon6 0.836 0.911 0.933 -#> 3 A3SS:NSUN5-201-exon8;NSUN5-novelTr003-exon2 0.929 0.979 0.959 -#> 4 A3SS:NSUN5-204-exon10;NSUN5-202-exon10 0.954 0.957 0.933 -#> 5 A3SS:SRSF1-201-exon4;SRSF1-novelTr001-exon2 0.807 0.738 0.920 -#> 6 A3SS:SRSF1-204-exon4;SRSF1-203-exon2 0.970 0.984 0.865 -#> 7 A3SS:SRSF2-202-exon2;SRSF2-201-exon2 0.984 0.988 0.993 -#> 8 A3SS:SRSF2-206-exon2;SRSF2-202-exon3 0.158 0.219 0.110 -#> 9 A3SS:SRSF2-206-exon2;SRSF2-novelTr003-exon2 0.987 0.996 0.971 -#> 10 A3SS:SRSF2-novelTr002-exon2;SRSF2-209-exon2 0.0954 0.00864 0.0649 -#> # … with 89 more rows +#> Error in event_list %in% rownames(se): object 'event_names' not found

diff --git a/man/get_ASE_data_matrix.Rd b/man/get_ASE_data_matrix.Rd index d5bd0fc..bb50f35 100644 --- a/man/get_ASE_data_matrix.Rd +++ b/man/get_ASE_data_matrix.Rd @@ -11,7 +11,10 @@ get_ASE_data_matrix( summarise_groups = TRUE, summarise_groups_by = "mean", method = "PSI", - column_condition = "condition" + column_condition = "condition", + depth_threshold = 10, + logit_max = 5, + na.percent.max = 0.1 ) } \arguments{ @@ -28,6 +31,12 @@ get_ASE_data_matrix( \item{method}{a character string denoting a method for data value. Can be one of the "PSI", "logit" or "Z-Score".} \item{column_condition}{a character string denoting a condition column from \code{se} to select samples. Same column will also be used to group and summaries samples.} + +\item{depth_threshold}{default 10, refer \code{depth_threshold} of \code{\link[SpliceWiz:make_plot_data]{SpliceWiz::makeMatrix()}}} + +\item{logit_max}{default 5, refer \code{logit_max} of \code{\link[SpliceWiz:make_plot_data]{SpliceWiz::makeMatrix()}}} + +\item{na.percent.max}{default 0.1, refer \code{na.percent.max} of \code{\link[SpliceWiz:make_plot_data]{SpliceWiz::makeMatrix()}}} } \value{ a data matrix