help(with)
source('~/Documents/Work/ra_textbook/lab1_v2/lab1_script.R')
source('~/.active-rstudio-document')
source('~/Documents/Work/ra_textbook/lab1_v2/lab1_script.R')
source('~/Documents/Work/ra_textbook/lab1_v2/lab1_script.R')
source('~/Documents/Work/ra_textbook/lab1_v2/lab1_script.R')
help(legend)
source('~/Documents/Work/ra_textbook/lab1_v2/lab1_script.R')
source('~/Documents/Work/ra_textbook/lab1_v2/lab1_script.R')
source('~/Documents/Work/ra_textbook/lab1_v2/lab1_script.R')
source('~/Documents/Work/ra_textbook/lab1_v2/lab1_script.R')
source('~/Documents/Work/ra_textbook/lab1_v2/lab1_script.R')
help(with)
help.search('normal distribution')
help('rnorm')
help(rnorm)
source('~/Documents/Work/ra_textbook/lab3_sample_plot1/lab3_sample.R')
summary(data)
length(data)
help(summary)
help(rnorm)
help(plot.ecdf)
install.packages("triangle")
help.search('lognormal distribution')
help.search('uniform distribution')
help.search('distributions')
help.search('distributions in the stats package')
help.search('stats::distributions')
help.search('stats::distribution')
help.search('uniform distribution')
p_0 = 0.0038
alpha = 2.6
V = 10^ 10
delta = 4
I_0 = 0
k = 42* 10^ 6
# Make a vector of possible dike height increases.
X = seq(0, 3, by = 0.001)
p_h <- p_0* exp(-alpha* X)
sum(p_h)
X = seq(0, 100, by = 0.001)
p_h <- p_0* exp(-alpha* X)
sum(p_h)
plot(X, p_h, type = 'l')
￼x <- 1:4
p <- x/sum(x)
temp
￼x <- 1:4
p <- x/sum(x)
temp
x <- 1:4
p <- x/sum(x)
temp <- rbind(x, p)
rownames(temp) <- c("X", "Prob")
temp
x <- 1:4
p <- x/sum(x)
temp <- rbind(x, p)
rownames(temp) <- c("X", "Prob")
temp
temp$X* temp$Prob
temp[1, ]* temp[2, ]
sum(temp[1, ]* temp[2, ])
3* 200/ 5
setwd("~/Documents/Work/laura_kanger_10Be")
source('~/Documents/Work/laura_kanger_10Be/laura_script_v4.R')
min.dist
foo1 = read.csv('Kanger_10Be_ages.csv')
foo1
all.table <- cbind(foo1, min.dist)
all.table
help(write.csv)
write.csv(all.table, 'laura_table.csv')
seq('a', 'f')
help(seq)
source('~/Documents/Work/Old_projects/geoengineering/code_figures/final_geoeng_plots.R')
source('~/.active-rstudio-document')
geo_yr0
geo_T_yr0
geo_V_yr0
help(round)
table_S1 = cbind(geo_yr0, round(geo_T_yr0, 2), round(geo_V_yr0, 2), color)
table_S1
help(cbind)
help(colnames)
colnames(table_S1) = c('year when AM begins', 'T anom when AM begins', 'V when AM begins', 'color')
table_S1
typeof(table_S1)
table_S1 = as.data.frame(cbind(geo_yr0, round(geo_T_yr0, 2), round(geo_V_yr0, 2), color))
colnames(table_S1) = c('Year when AM begins', 'T anom when AM begins', 'V when AM begins', 'Color')
table_S1
typeof(table_S1)
table_S1[, 3]
source('~/Documents/Work/Old_projects/geoengineering/code_figures/final_geoeng_plots.R')
source('~/Documents/Work/Old_projects/geoengineering/code_figures/final_geoeng_plots.R')
source('~/Documents/Work/Old_projects/geoengineering/code_figures/final_geoeng_plots.R')
source('~/Documents/Work/Old_projects/geoengineering/code_figures/final_geoeng_plots.R')
setwd("~/Documents/Work/geoengineering_copy/code_figures")
setwd("~/Documents/Work/geoengineering_copy/temp_curves")
source('~/Documents/Work/geoengineering_copy/temp_curves/temp_curve_writer.R')
source('~/Documents/Work/geoengineering_copy/code_figures/data_file_writer_v4.R')
setwd("~/Documents/Work/geoengineering_copy/code_figures")
source('~/Documents/Work/geoengineering_copy/code_figures/data_file_writer_v4.R')
source('~/Documents/Work/geoengineering_copy/searise/sensitivity_fig.R')
setwd("~/Documents/Work/geoengineering_copy/searise")
source('~/Documents/Work/geoengineering_copy/searise/sensitivity_fig.R')
source('~/Documents/Work/geoengineering_copy/searise/sensitivity_fig.R')
read.csv('icevol(t)_RCP8p5.csv', header = FALSE)
setwd("~/Documents/Work/geoengineering_copy/searise")
read.csv('icevol(t)_RCP8p5.csv', header = FALSE)
ls()
help(ls)
objects()
getwd()
list.files()
source('~/Documents/Work/geoengineering_copy/searise/sensitivity_fig.R')
source('~/Documents/Work/geoengineering_copy/searise/sensitivity_fig.R')
source('~/Documents/Work/geoengineering_copy/code_figures/final_geoeng_plots.R')
setwd("~/Documents/Work/geoengineering_copy/code_figures")
source('~/Documents/Work/geoengineering_copy/code_figures/final_geoeng_plots.R')
install.packages("gridExtra")
help(grid.table)
require(gridExtra)
help(grid.table)
source('~/Documents/Work/geoengineering_copy/code_figures/final_geoeng_plots.R')
source('~/Documents/Work/geoengineering_copy/code_figures/final_geoeng_plots.R')
table_S1
source('~/Documents/Work/geoengineering_copy/code_figures/final_geoeng_plots.R')
source('~/Documents/Work/geoengineering_copy/sem_test/sem_test_v5.R')
setwd("~/Documents/Work/geoengineering_copy/sem_test")
source('~/Documents/Work/geoengineering_copy/sem_test/sem_test_v5.R')
source('~/Documents/Work/geoengineering_copy/sem_test/sem_test_v5.R')
source('~/Documents/Work/geoengineering_copy/sem_test/sem_test_v5.R')
source('~/Documents/Work/geoengineering_copy/sem_test/sem_test_v5.R')
source('~/Documents/Work/geoengineering_copy/searise/sensitivity_fig.R')
setwd("~/Documents/Work/geoengineering_copy/searise")
source('~/Documents/Work/geoengineering_copy/searise/sensitivity_fig.R')
source('~/Documents/Work/geoengineering_copy/sem_test/sem_test_v5.R')
setwd("~/Documents/Work/geoengineering_copy/sem_test")
source('~/Documents/Work/geoengineering_copy/sem_test/sem_test_v5.R')
help(list.files)
source('~/Documents/Work/geoengineering_copy/code_figures/final_geoeng_plots.R')
setwd("~/Documents/Work/geoengineering_copy/code_figures")
source('~/Documents/Work/geoengineering_copy/code_figures/final_geoeng_plots.R')
