source("makeSteelStrain.R")
library(debug)
mtrace(create_rda)
d.f <- create_rda()
qqq()
source("makeSteelStrain.R")
mtrace(create_rda)
d.f <- create_rda()
qqq()
source("makeSteelStrain.R")
mtrace(create_rda)
d.f <- create_rda()
head(raw.data)
plot(norm.L2(raw.data$X, raw.data$Y))
plot(raw.data$X)
plot(raw.data$Y)
qqq()
source("makeSteelStrain.R")
mtrace(create_rda)
d.f <- create_rda()
qqq()
source("makeSteelStrain.R")
mtrace(create_rda)
d.f <- create_rda()
qqq()
source("makeSteelStrain.R")
mtrace(create_rda)
d.f <- create_rda()
plot(c(0, raw.data$exx))
points(c(0, raw.data$exx), col="red")
range(raw.data$exx)
mtrace(fit.column.quadratic)
colnames(nogap.data)[15]
head(nogap.data)
q.fit
print(q.fit)
qqq()
source("makeSteelStrain.R")
mtrace(fit.column.quadratic)
source("makeSteelStrain.R")
mtrace(create_rda)
d.f <- create_rda()
plot(raw.data$exx, ylim=range(c(0, raw.data$exx)))
points(col="red", raw.data$exx)
go()
q()
source("makeSteelStrain.R")

source("makeSteelStrain.R"); create_rda()
source("makeSteelStrain.R"); create_rda()
source("makeSteelStrain.R"); create_rda()
q()
