| ... | ... |
@@ -384,7 +384,8 @@ EventPointer_IGV <- function(Events, input, |
| 384 | 384 |
SG_Gene <- SplicingGraphFeatures[unlist(geneID(SplicingGraphFeatures)) == |
| 385 | 385 |
GeneIndex[jj, 2]] |
| 386 | 386 |
|
| 387 |
- SG_Edges <- SG_Info(SG_Gene)$Edges |
|
| 387 |
+ #SG_Edges <- SG_Info(SG_Gene)$Edges |
|
| 388 |
+ SG_Edges <- SG_creation_RNASeq(SG_Gene)$Edges |
|
| 388 | 389 |
|
| 389 | 390 |
if (SG_Edges[1, "Strand"] == "") {
|
| 390 | 391 |
SG_Edges[, 6] <- gsub("", "-",
|
