tests/testthat/testthat.R

In TPMplt: Tool-Kit for Dynamic Materials Model and Thermal Processing Maps

library(VBTree)
library(ggplot2)
library(rgl)
library(TPMplt)

# Check the factors in column names of input data:
# Note: Temperature in layer2, Strain Rate in layer3.
vbt <- dl2vbt(chrvec2dl(colnames(TPMdata)))
vbt

# Export Strain Rate-Temperature table based on
# given strain condition (epsilon):
epstable <- epsExtract(TPMdata, 0.7, 2, 3)

# Build dynamic materials model (DMM) from Strain
# Rate-Temperature table:
DMM <- DMMprocess(epstable)

# Choose regression method for plots:
PLTbd <- SVRModel(DMM)

# 2D processing-map through selected regression
# method:
TPM2dplt(PLTbd)

# 3D processing-map through selected regression
# method:
TPM3dplt(PLTbd)


# test different input data for epsExtract()
data1 <- TPMdata
data2 <- data1 + 1
colnames(data1) <- paste0(colnames(TPMdata), "-", "A")
colnames(data2) <- paste0(colnames(TPMdata), "-", "B")
newdata <- cbind(data1, data2)

epsExtract(newdata, 0.72, 2, 3)

data1 <- TPMdata
data2 <- data1 + 1
colnames(data1) <- paste0("A", "-", colnames(TPMdata))
colnames(data2) <- paste0("B", "-", colnames(TPMdata))
newdata1 <- cbind(data1, data2)

epsExtract(newdata1, 0.72, 3, 4)