Scratch/examples.R

In CollinErickson/contour: Create Contour Plots from Data or a Function

a <- b <- seq(-4*pi, 4*pi, len = 27)
r <- sqrt(outer(a^2, b^2, "+"))
cf_grid(cos(r^2)*exp(-r/(2*pi)))
cf_grid(cos(r^2)*exp(-r/(2*pi)), bar=T)
cf_grid(cos(r^2)*exp(-r/(2*pi)), bar=T, mainminmax = T)


x <- runif(20)
y <- runif(20)
z <- exp(-(x-.5)^2-5*(y-.5)^2)# + rnorm(20,0,.05)
cf_data(x,y,z)
cf_data(x,y,z, bar=T)

cf_func(function(xx){exp(-sum((xx-.5)^2/.1))})
cf_func(function(xx){exp(-sum((xx-.5)^2/.1))}, bar=T)
cf_func(function(xx){exp(-sum((xx-.5)^2/.1))}, main="Title check")
cf_func(function(xx){exp(-sum((xx-.5)^2/.1))}, bar=T, main="Title check")
cf_func(function(xx){exp(-sum((xx-.5)^2/.1))},pts=matrix(c(.2,.2,.2,.8,.8,.2,.8,.8),byrow=T,ncol=2))
cf_func(function(xx){exp(-sum((xx-.5)^2/.1))})
points(matrix(c(.2,.2,.2,.8,.8,.2,.8,.8),byrow=T,ncol=2)) #These should show up at right spot


split.screen(c(2,2))
screen(1)
cf_grid3(cos(r^2)*exp(-r/(2*pi)), bar=T)
close.screen(1)
screen(2)
cf_func(function(xx){exp(-sum((xx-.5)^2/.1))}, bar=T)
close.screen(2)
close.screen(all=T)

# Checking text size
cf_func(function(xx){exp(-sum((xx-.5)^2/.1))}, bar=F)
cf_func(function(xx){exp(-sum((xx-.5)^2/.1))}, bar=F, cex.main=.5)
cf_func(function(xx){exp(-sum((xx-.5)^2/.1))}, bar=F, cex=3)

# Checking par.list, everything should go back to normal after each plot
cf_grid(cos(r^2)*exp(-r/(2*pi)))
cf_grid(cos(r^2)*exp(-r/(2*pi)), par.list=list(col='red', cex.axis=2.5))
cf_grid(cos(r^2)*exp(-r/(2*pi)))
cf_grid(cos(r^2)*exp(-r/(2*pi)), par.list=list(col='red', cex.axis=2.5, lwd=5))
cf_grid(cos(r^2)*exp(-r/(2*pi)))
plot(1:10)
cf_func(function(xx){exp(-sum((xx-.5)^2/.1))}, bar=F, par.list=list(col='red', cex.axis=2.5, lwd=5))
cf_grid(cos(r^2)*exp(-r/(2*pi)))