-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
71 lines (71 loc) · 2.72 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
library(shinyChromosomeR)
library(shinyChromosomeR)
library(shinyChromosomeR)
library(shinyChromosomeR)
?read.table
data.chr <- read.table(system.file("examples/single_genome/genome_data.txt",
package="shinyChromosomeR"),
header=TRUE, as.is=TRUE, sep="\t")
head(data.chr, 2)
data.track.file <- c(system.file("examples/single_genome/bar.txt", package="shinyChromosomeR"),
system.file("examples/single_genome/vertical_line.txt", package="shinyChromosomeR"))
data.track.file
data.track <- lapply(data.track.file, function(x){
dt <- read.table(x, header=TRUE, as.is=TRUE, sep="\t")
return(dt)
})
dim(data.track[[1]])
head(data.track[[1]], 2)
dim(data.track[[2]])
head(data.track[[2]], 2)
single_genome_plot(data.chr=data.chr, data.track=data.track,
plot_type=c("bar", "vertical_line"), chr_plotype=1,
margin_layer=0.01, layer_index=c(1, 1),
col_type=1)
data.chr <- read.table(system.file("examples/single_genome/genome_data.txt",
package="shinyChromosomeR"),
header=TRUE, as.is=TRUE, sep="\t")
head(data.chr, 2)
data.track.file <- c(system.file("examples/single_genome/bar.txt", package="shinyChromosomeR"),
system.file("examples/single_genome/vertical_line.txt", package="shinyChromosomeR"))
data.track.file
data.track <- lapply(data.track.file, function(x){
dt <- read.table(x, header=TRUE, as.is=TRUE, sep="\t")
return(dt)
})
dim(data.track[[1]])
head(data.track[[1]], 2)
dim(data.track[[2]])
head(data.track[[2]], 2)
single_genome_plot(data.chr=data.chr, data.track=data.track,
plot_type=c("bar", "vertical_line"), chr_plotype=1,
margin_layer=0.01, layer_index=c(1, 1),
col_type=c(1, 2))
data.chr1 <- read.table(system.file("examples/two_genome/genome1_data.txt",
package="shinyChromosomeR"),
header=TRUE, as.is=TRUE, sep="\t")
head(data.chr1, 2)
data.chr2 <- read.table(system.file("examples/two_genome/genome2_data.txt",
package="shinyChromosomeR"),
header=TRUE, as.is=TRUE, sep="\t")
head(data.chr2, 2)
data.2geno.plot <- read.table(system.file("examples/two_genome/segment.txt",
package="shinyChromosomeR"),
header=TRUE, as.is=TRUE, sep="\t")
head(data.2geno.plot, 2)
two_genomes_plot(data.chr1=data.chr1, data.chr2=data.chr2,
data.2geno.plot=data.2geno.plot, plot_type="segment")
data.chr1 <- read.table(system.file("examples/two_genome/genome1_data.txt",
package="shinyChromosomeR"),
header=TRUE, as.is=TRUE, sep="\t")
head(data.chr1, 2)
data.chr2 <- read.table(system.file("examples/two_genome/genome2_data.txt",
package="shinyChromosomeR"),
header=TRUE, as.is=TRUE, sep="\t")
head(data.chr2, 2)
data.2geno.plot <- read.table(system.file("examples/two_genome/segment.txt",
package="shinyChromosomeR"),
header=TRUE, as.is=TRUE, sep="\t")
head(data.2geno.plot, 2)
two_genomes_plot(data.chr1=data.chr1, data.chr2=data.chr2,
data.2geno.plot=data.2geno.plot, plot_type="segment")