length(fib)
length(fib[2])
length(fib[[2]])
d <- fib[1..1382396,]
d <- fib[1:1382396,]
head(d)
tail(d)
names(d) <- c('op', 'ns')
ggplot(d) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
ggplot(bin20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
bin20k <- load_operations('binmeas_20000-1.csv')
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
ggplot(bin20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
ggplot(bin20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
?print
?printf
?print
print(2)
print(2 + "lksdjg")
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
bin20k <- load_operations('binmeas_20000-1.csv')
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
ggplot(bin20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
ggplot(bin20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
ggplot(bin20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
ggplot(bin20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
ggplot(bin20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
ggplot(bin20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + scale_x_log10()
ggplot(bin20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + scale_y_log10()
ggplot(bin20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
source('resource/env.R')
bin20k <- load_operations('binmeas_20000-1.csv')
ggplot(bin20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
dev.list()
dev.set(3)
fib20k <- load_operations('fibmeas_20000-1.csv')
ggplot(fib20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
fib20k_faster_logsize <- load_operations('fibmeas_20000-1.fixedlogsize.csv')
source('resource/env.R')
fib20k_faster_logsize <- load_operations('fibmeas_20000-1.fixedlogsize.csv')
source('resource/env.R')
dev.list()
dev.set(3)
ggplot(fib20k_faster_logsize) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
dev.set(2)
fib20k <- load_operations('fibmeas_20000-1.csv')
ggplot(fib20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free")
head(fib20k)
tail(fib20k)
summary(subset(fib20k, op=='deletemin'))
summary(subset(fib20k_faster_logsize, op=='dm'))
fib20k <- load_operations('fibmeas_20000-1.csv')
source('resource/env.R')
source('resource/env.R')
fib20k <- load_operations('fibmeas_20000-1.csv')
fib20k <- load_operations('fibmeas_20000-1.fixedlogsize.csv')
d
head(d)
d[which(d$op == 'i'],]
d[which(d$op == 'i'),]
d[which(d$op == 'i'),]$op <- 'lskdjg
d[which(d$op == 'i'),]$op <- 'lskdjg'
source('resource/env.R')
fib20k <- load_operations('fibmeas_20000-1.fixedlogsize.csv')
fib20k <- load_operations('fibmeas_20000-1.csv')
fib20k <- load_operations('fibmeas_20000-1.fixedlogsize.csv')
source('resource/env.R')
fib20k <- load_operations('fibmeas_20000-1.fixedlogsize.csv')
fib20k <- load_operations('fibmeas_20000-1.csv')
head(fib20k)
fib20k <- load_operations('fibmeas_20000-1.fixedlogsize.csv')
head(fib20k)
levels(fib20k)
levels(fib20k)
levels(fib20k$op)[1] <- 'decreasekey'
levels(fib20k$op)
source('resource/env.R')
fib20k <- load_operations('fibmeas_20000-1.fixedlogsize.csv')
fib20k <- load_operations('fibmeas_20000-1.csv')
head)fib20k
head(fib20k)
fib20k <- load_operations('fibmeas_20000-1.fixedlogsize.csv')
head(fib20k)
fib20k <- load_operations('fibmeas_20000-1.csv')
fib20k_fixed <- load_operations('fibmeas_20000-1.fixedlogsize.csv')
summary(subset(fib20k, op='deletemin')$ns)
summary(subset(fib20k_fixed, op='deletemin')$ns)
ggplot(fib20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + title('fib20k')
ggplot(fib20k) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib20k")
fib_inline <- load_operations('fibmeas_20000-1.inline.csv')
summary(subset(fib20k_fixed, op='deletemin')$ns)
summary(subset(fib_inline, op='deletemin')$ns)
head(fib_inline)
fib_inline <- load_operations('fibmeas_20000-1.inline.csv')
summary(subset(fib_inline, op='deletemin')$ns)f
summary(subset(fib_inline, op='deletemin')$ns)
summary(subset(fib20k_fixed, op='deletemin')$ns)
fib_inline <- load_operations('fibmeas_20000-1.inline.csv')
fib_inline <- load_operations('fibmeas_20000-1.inline.csv')
summary(subset(fib_inline, op='deletemin')$ns)
source('resource/env.R')
fib_goto <- load_operations('fibmeas_n10000p0.8')
fib_goto <- load_operations('fibmeas_n10000p0.8.csv')
fib_nogoto <- load_operations('fibmeas_n10000p0.8_nogoto.csv')
subset(fib_goto, op == 'decreasekey')
summary(subset(fib_goto, op == 'decreasekey'))
summary(subset(fib_goto, op == 'decreasekey')$ns)
summary(subset(fib_goto, op == 'decreasekey')$ns)
summary(subset(fib_nogoto, op == 'decreasekey')$ns)
pfib1 <- prepare_for_histogram(fib1)
head(fib1)
pfib_goto <- prepare_for_histogram(fib_goto)
pfib_nogoto <- prepare_for_histogram(fib_nogoto)
ggplot(fib_goto) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib_goto")
library(ggplot2)
ggplot(fib_goto) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib_goto")
ggplot(subset(fib_goto, op == 'decreasekey')) + geom_histogram(aes(x=ns), binwidth=10)
ggplot(subset(fib_goto, op == 'decreasekey' & ns < 500)) + geom_histogram(aes(x=ns), binwidth=10)
ggplot(subset(fib_goto, op == 'decreasekey' & ns < 400)) + geom_histogram(aes(x=ns), binwidth=10)
ggplot(subset(fib_goto, op == 'decreasekey' & ns < 400)) + geom_histogram(aes(x=ns), binwidth=5)
dev.new()
ggplot(subset(fib_nogoto, op == 'decreasekey' & ns < 400)) + geom_histogram(aes(x=ns), binwidth=5)
ggplot(subset(fib_nogoto, op == 'decreasekey' & ns < 400)) + geom_histogram(aes(x=ns), binwidth=5) + ggtitle('No GOTO')
dev.list()
dev.set(2)
ggplot(subset(fib_goto, op == 'decreasekey' & ns < 400)) + geom_histogram(aes(x=ns), binwidth=5) + ggtitle('GOTO')
summary(subset(fib_nogoto, op == 'decreasekey')$ns)
summary(subset(fib_goto, op == 'decreasekey')$ns)
fib_goto2 <- load_operations('fibmeas_n10000p0.8_goto2.csv')
pfib_goto2 <- prepare_for_histogram(fib_goto2)
ggplot(subset(pfib_goto2) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib_goto2")
ggplot(subset(pfib_goto2) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib_goto2")
ggplot(subset(pfib_goto2)) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib_goto2")
dev.new()
ggplot(subset(pfib_goto)) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib_goto")
#ggplot(subset(pfib_nogoto)) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib_nogoto")
dev.new()
ggplot(subset(pfib_nogoto)) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib_nogoto")
summary(subset(fib_goto, op == 'insert')$ns)
summary(subset(fib_goto2, op == 'insert')$ns)
summary(subset(fib_goto, op == 'deletemin')$ns)
summary(subset(fib_goto2, op == 'deletemin')$ns)
summary(subset(fib_goto, op == 'decreasekey')$ns)
summary(subset(fib_goto2, op == 'decreasekey')$ns)
summary(subset(fib_nogoto, op == 'decreasekey')$ns)
summary(subset(fib_nogoto, op == 'insert')$ns)
subset(fib_nogoto, op == 'deletemin')
total = sum(fib_goto2$ns)
total
total/1e9
total/1e9
dm = sum(subset(fib_goto2, op == 'deletemin')$ns)
dm/total
total = sum(fib_nogoto$ns)
dm = sum(subset(fib_nogoto, op == 'deletemin')$ns)
dm/total
summary(fib_nogoto)
fib_goto3 <- load_operations('fibmeas_n10000p0.8_goto3.csv')
pfib_goto3 <- prepare_for_histogram(fib_goto3)
#ggplot(subset(pfib_nogoto)) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib_nogoto")
#ggplot(subset(pfib_goto3)) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib_goto3")
dev.new()
ggplot(subset(pfib_goto3)) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib_goto3")
summary(subset(fib_goto2, op == 'deletemin')$ns)
summary(subset(fib_goto3, op == 'deletemin')$ns)
bin <- load_operations('binmeas_n10000p0.8.csv')
pbin <- prepare_for_histogram(bin)
#ggplot(subset(pfib_goto3)) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("fib_goto3")
dev.new()
ggplot(subset(pbin)) + geom_histogram(aes(x=ns),binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("Binary")
source('resource/env.R')
print_summary(bin)
print_summary(bin)
source('resource/env.R')
print_summary(bin)
print_summary(bin)
source('resource/env.R')
print_summary(bin)
?summary
library(pastecs)
library(psych)
install.packages(psych)
install.packages("psych")
library(psych)
describe(bin)

source('resource/env.R')
print_summary(bin)
source('resource/env.R')
print_summary(bin)
print_summary(bin)
source('resource/env.R')
print_summary(bin)
source('resource/env.R')
print_summary(bin)
source('resource/env.R')
print_summary(bin)
?summary
summary(bin)
a <- summary(bin)
a
a
print(a)
source('resource/env.R')
print(a)
print_summary(bin)
source('resource/env.R')
print_summary(bin)
source('resource/env.R')
print_summary(bin)
print_summary(fib_goto2)
summary(bin)
png("bin.png", with=1920, height=1080)
png("bin.png", width=1920, height=1080)
ggplot(pbin) + geom_histogram(aes(x=ns), binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("Binary")
dev.off()
png("fib_goto.png", width=1920, height=1080)
ggplot(pfib_goto2) + geom_histogram(aes(x=ns), binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("Fibonacci GOTO 2")
dev.off()
png("fib_nogoto.png", width=1920, height=1080)
ggplot(pfib_nogoto) + geom_histogram(aes(x=ns), binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("Fibonacci no goto")
dev.off()
fib_low <- load_operations('fibmeas_n10000p0.8_lowweights.csv')
bin_low <- load_operations('binmeas_n10000p0.8_lowweights.csv')
summary(fib_low)
fib_low <- load_operations('fibmeas_n10000p0.8_lowweights.csv')
bin_low <- load_operations('binmeas_n10000p0.8_lowweights.csv')
summary(fib_low)
bin_low <- load_operations('binmeas_n10000p0.8_lowweights.csv')
summary(fib_low)
bin_low <- load_operations('binmeas_n10000p0.8_lowweights.csv')
summary(fib_low)
fib_low <- load_operations('fibmeas_n10000p0.8_lowweights.csv')
summary(fib_low)
sum(fib_low$ns)
sum(bin_low$ns)
print_summary(fib_low)
print_summary(bin_low)
1
pfib_low <- prepare_for_histogram(fib_low)
ggplot(pfib_low) + geom_histogram(aes(x=ns), binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("Fibonacci goto")
describe(fib_low)
?describe
ggplot(pfib_low) + geom_histogram(aes(x=ns), binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("Fibonacci goto") + scale_y_log10()
ggplot(pfib_low) + geom_histogram(aes(x=ns), binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("Fibonacci goto")
?geom_histogram
?geom_histogram
0.997 * 365
365 - 0.997 * 365
(365 - 0.997 * 365) * 24
(365 - 0.999 * 365) * 24
(365 - 0.9999 * 365) * 24
fib <- load_operations('fib.times.csv')
sum(fib$ns)/1e9
sum(fib$ns)
fib$ns
fib <- load_operations('fib.times.csv')
sum(fib$ns)
sum(fib$ns)/1e9
bin <- load_operations('bin.times.csv')
sum(bin$ns)/1e9
bin <- prepare_for_histogram(bin)
fib <- prepare_for_histogram(fib)
ggplot(bin) + geom_histogram(aes(x=ns), binwidth=10) + facet_wrap(~ op, scales="free") + ggtitle("Fibonacci goto")
ggplot(bin) + geom_histogram(aes(x=ns), binwidth=3) + facet_wrap(~ op, scales="free") + ggtitle("Binary Many DK")
dev.new()
ggplot(fib) + geom_histogram(aes(x=ns), binwidth=3) + facet_wrap(~ op, scales="free") + ggtitle("Fibonacci Many DK")
print_summary(fib)
print_summary(bin)
bin <- load_operations('bin.times.csv')
fib <- load_operations('fib.times.csv')
print_summary(fib)
print_summary(bin)
sum(bin$ns)
sum(fib$ns)
ls
memory.size()
gc()
gc()
gc()
ls()
rm(fib, bin)
gc()
bin <- load_operations('bin.times.25000.csv')
fib <- load_operations('fib.times.25000.csv')
print_summary(fib)
print_summary(bin)
ggplot(fib) + geom_histogram(aes(x=ns), binwidth=3) + facet_wrap(~ op, scales="free") + ggtitle("Fibonacci Many DK")
source('resource/env.R')
pfib <- prepare_for_histogram(fib)
ggplot(pfib) + geom_histogram(aes(x=ns), binwidth=3) + facet_wrap(~ op, scales="free") + ggtitle("Fibonacci Many DK")
pbin <- prepare_for_histogram(bin)
dev.list()
dev.set(1)
ggplot(pbin) + geom_histogram(aes(x=ns), binwidth=3) + facet_wrap(~ op, scales="free") + ggtitle("BIN")
dev.list()
dev.set(4)
ggplot(pfib) + geom_histogram(aes(x=ns), binwidth=3) + facet_wrap(~ op, scales="free") + ggtitle("Fibonacci Many DK")
dev.set(2)
ggplot(pbin) + geom_histogram(aes(x=ns), binwidth=3) + facet_wrap(~ op, scales="free") + ggtitle("BIN")
source('resource/env.R')
pbin <- prepare_for_histogram_fixed(bin, i=1000, dm=2500, dk=500)
pfib <- prepare_for_histogram_fixed(fib, i=1000, dm=2500, dk=500)
ggplot(pfib) + geom_histogram(aes(x=ns), binwidth=3) + facet_wrap(~ op, scales="free") + ggtitle("Fibonacci Many DK")
#ggplot(pbin) + geom_histogram(aes(x=ns), binwidth=3) + facet_wrap(~ op, scales="free") + ggtitle("BIN")
dev.list()
dev.set(4)

?ggplot
source('resource/env.R')
source('resource/env.R')
dae_plot_tex_full("../../Dropbox/dat7.dk/ADS/project1/figures/hist_binary_25000.tex", adsplot, pbin, height=2.5)
library(gridExtra)
dae_plot_tex_full("../../Dropbox/dat7.dk/ADS/project1/figures/hist_binary_25000.tex", adsplot, pbin, height=2.5)
dae_plot_tex_full("../../Dropbox/dat7.dk/ADS/project1/figures/hist_fibonacci_25000.tex", adsplot, pfib, height=2.5)
source('resource/env.R')
dae_plot_tex_full("../../Dropbox/dat7.dk/ADS/project1/figures/hist_binary_25000.tex", adsplot, pbin, height=2.5)
dae_plot_tex_full("../../Dropbox/dat7.dk/ADS/project1/figures/hist_fibonacci_25000.tex", adsplot, pfib, height=2.5)
?geom_histogram
source('resource/env.R')
adsplot(pbin)
source('resource/env.R')
adsplot(pbin)
source('resource/env.R')
adsplot(pbin)
source('resource/env.R')
adsplot(pbin)
source('resource/env.R')
source('resource/env.R')
adsplot(pbin)
source('resource/env.R')
adsplot(pbin)
adsplot(pfib)
source('resource/env.R')
adsplot(pfib)
pbin
names(pbin)
rootlen <- read.csv('rootlen.25000.csv')
rootlen
names(rootlen)
rootlen <- read.csv('rootlen.25000.csv', header=F)
names(rootlen) <- c('l', 'n')
head(rootlen)
mean(rootlen)
mean(rootlen$n)
summary(rootlen)
log2(25000)
fibtimes <- read.csv('fib.times.25000.csv', header=F)
fibtimes <- subset(fibtimes, op == 'deletemin')
head(fibtimes)
fibtimes <- subset(fibtimes, V1 == 'dm')
head(fibtimes)
length(fibtimes)
length(fibtimes$V2)
length(rootlen)
length(rootlen$n)
d <- rbind(rootlen, fibtimes$V2)
d <- rbind(rootlen, data.frame(ns=fibtimes$V2))
d <- cbind(rootlen, data.frame(ns=fibtimes$V2))
d
head(d)
ggplot(d) + geom_line(aes(x=n, y=ns))
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns))
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10()
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns))
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10()
fib
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns))
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns))
f <- function(d){ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns))}
dae_plot_tex_column("~/Dropbox/dat7.dk/ADS/project1/figures/fib_dm_time.tex", f, d)
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_y_log10()
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10()
f <- function(d){ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10()}
dae_plot_tex_column("~/Dropbox/dat7.dk/ADS/project1/figures/fib_dm_time.tex", f, d, height=5)
?bin
?stat_bin
f <- function(d){ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10()}
dae_plot_tex_column("~/Dropbox/dat7.dk/ADS/project1/figures/fib_dm_time.tex", f, d, height=5)
f <- function(d){ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns))}
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10()
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns))
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10()
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10()
head(d)
?cut
cut(d, 100)
cut(d$n, 100)
cut(d$n)
)
findInterval(seq(1, 9000, l=199), d$n)
s <- sort(d$n)
findInterval(seq(1, 9000, l=199), s)
findInterval(seq(1, 9000, l=50), s)
findInterval(s, seq(1, 9000, l=50))
s <- sort(d$ns)
findInterval(s, seq(1, 9000, l=50))
summary(rootlen)
source('resource/env.R')
average_dm_cost(d)
d
d <- data.table(d)
library(data.table)
d <- data.table(d)
d
source('resource/env.R')
sum <- dae_summarize(d)
source('resource/env.R')
sum <- dae_summarize(d)
sum
ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10()
ggplot(sum) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10()
ggplot(sum) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10() + scale_y_log10()
kmeans(sum$ns, k=10)
kmeans(sum$n, centers=10)
kmeans(log(sum$n), centers=10)
kmeans(log(sum$ns), centers=10)
kmeans(sum$ns, centers=10)
sum$ns
kmeans(sum$ns, centers=10)
kmeans(sum$n, centers=10)
ggplot(sum) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10() + scale_y_log10(breaks=seq(1))
summary(sum$n)
ggplot(sum) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10() + scale_y_log10(breaks=seq(1, 8000, 1000))
ggplot(sum) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10() + scale_y_log10(breaks=exp(seq(1, 8000, 1000)))
ggplot(sum) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10()
f <- function(d) {ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_x_log10()}
f(sum)
f(sum) + scale_y_log10(breaks=exp(seq(1, 12, 1))
)
f(sum) + scale_y_log10(breaks=exp(seq(1, 12, 1)))
pow
power
f(sum) + scale_y_log10(breaks=power(seq(1, 12, 1), 10))
f(sum) + scale_y_log10(breaks=power(seq(1, 12, 1)))
?power
f(sum) + scale_y_log10(breaks=seq(1, 12, 1))
f(sum) + scale_y_log10(breaks=10^seq(1, 12, 1))
f(sum) + scale_y_log10(breaks=10^seq(1, 5, 1))
f(sum) + scale_y_log10(breaks=10^seq(1, 5, 1))
f(sum) + scale_y_log10(breaks=2^seq(1, 12, 1))
f(sum) + scale_y_log10(breaks=2^seq(1, 13, 1))
f(sum) + scale_y_log10(breaks=2^seq(1, 15, 1))
f(sum) + scale_y_log10(breaks=2^seq(1, 17, 1))
f(sum) + scale_y_log10(breaks=2^seq(1, 17, 2))
f(sum) + scale_y_log10(breaks=2^seq(1, 17, 3))
f(sum) + scale_y_log10(breaks=2^seq(1, 18, 3))
f(sum) + scale_y_log10(breaks=2^seq(1, 18, 4))
f(sum) + scale_y_log10(breaks=2^seq(1, 18, 2))
f(sum) + scale_y_log10(breaks=2^seq(1, 18, 2))
f <- function(d) {ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_y_log10(breaks=2^seq(1, 18, 2))}
f(sum)
f(sum) + scale_x_log10()
f(sum) + scale_x_log10(breaks=10^seq(1, 5, 1))
f(sum) + scale_x_log10(breaks=10^seq(1, 5, 0.5))
f(sum) + scale_x_log10(breaks=10^seq(1, 5, 1))
f(sum) + scale_x_log10(breaks=10^seq(0, 5, 1))
f <- function(d) {ggplot(d) + geom_line(aes(x=n, y=ns)) + geom_point(aes(x=n, y=ns)) + scale_y_log10(breaks=2^seq(1, 18, 2)) + scale_x_log10(breaks=10^seq(0, 5, 1))}
f
f(sum)
sum <- dae_summarize(d)
dae_plot_tex_column("~/Dropbox/dat7.dk/ADS/project1/figures/fib_dm_time.tex", f, d, height=5)
f(sum)
sum
dae_plot_tex_column("~/Dropbox/dat7.dk/ADS/project1/figures/fib_dm_time.tex", f, sum, height=5)
dae_plot_tex_column("~/Dropbox/dat7.dk/ADS/project1/figures/fib_dm_time.tex", f, sum, height=3)
source('resource/env.R')
plot_dm_cost(sum)
source('resource/env.R')
plot_dm_cost(sum)
source('resource/env.R')
plot_dm_cost(sum)
dae_plot_tex_column("~/Dropbox/dat7.dk/ADS/project1/figures/fib_dm_time.tex", f, sum, height=3)
source('resource/env.R')
dae_plot_tex_column("~/Dropbox/dat7.dk/ADS/project1/figures/fib_dm_time.tex", f, sum, height=3)
dae_plot_tex_column("~/Dropbox/dat7.dk/ADS/project1/figures/fib_dm_time.tex", , sum, height=3)
dae_plot_tex_column("~/Dropbox/dat7.dk/ADS/project1/figures/fib_dm_time.tex", plot_dm_cost, sum, height=3)
source('resource/env.R')
source('resource/env.R')
dae_plot_tex_column("~/Dropbox/dat7.dk/ADS/project1/figures/fib_dm_time.tex", plot_dm_cost, sum, height=3)
source('resource/env.R')
dae_plot_tex_column("~/Dropbox/dat7.dk/ADS/project1/figures/fib_dm_time.tex", plot_dm_cost, sum, height=3)
