### only target curve
Tdata <- seq(-40, 85, by = 5)
plot_voltageCurve(Tdata)
### a particular curve and the target curve
data(CompValues)
Tdata <- seq(-40, 85, by=5)
R_id <- c(43, 36, 29, 15, 9, 3)
Res <- CompValues$Res
ThVal <- CompValues$ThVal
ThBeta <- CompValues$ThBeta
Vnew <- voltageCurve(Tdata, R_id, Res, ThVal, ThBeta)
plot_voltageCurve(Tdata, OnlyTarget = FALSE, Pdata = Vnew)
Run the code above in your browser using DataLab