Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpibr
schu
UTRPolyribosomes
Commits
ad34cee2
Commit
ad34cee2
authored
Nov 21, 2017
by
Georgi Tushev
Browse files
resort data
parent
d9e0ab7d
Changes
1
Hide whitespace changes
Inline
Side-by-side
edgeR_RUVSeqNorm.R
View file @
ad34cee2
...
...
@@ -13,7 +13,14 @@ library(RUVSeq);
rm
(
list
=
ls
());
# read counts
indata
<-
as.matrix
(
read.table
(
"/Users/tushevg/Desktop/UTRPolyribosomes/countTable_UTRPolysomes_ERCC_21Nov2017.txt"
,
stringsAsFactors
=
F
,
header
=
T
,
row.names
=
1
));
indata
<-
as.matrix
(
read.table
(
"/Users/tushevg/Desktop/UTRPolyribosomes/countTable_UTRPolysomes_ERCC_21Nov2017.txt"
,
stringsAsFactors
=
F
,
header
=
T
,
row.names
=
1
,
check.names
=
F
));
# reorder data by name
data
<-
indata
[,
c
(
"InputHc2"
,
"InputHc3"
,
"80SHc2"
,
"80SHc3"
,
"2and3Hc2"
,
"2and3Hc3"
,
"4and5Hc2"
,
"4and5Hc3"
,
"6and7Hc2"
,
"6and7Hc3"
,
"bigger7Hc2"
,
"bigger7Hc3"
)];
# filter data
filter
<-
apply
(
data
,
1
,
function
(
x
)
length
(
x
[
x
>
5
])
>=
2
);
filtered
<-
data
[
filter
,];
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment