data <- system.file("extdata", "WLO6output.csv", package = "bSi")
m <- 5.6073 # Replace with the actual slope from plotStdC
y <- 0.1234 # Replace with the actual intercept from tdgraph
c <- 0.5678 # Replace with the actual intercept from plotStdC
C0 <- silco(m, y, c, data)
Run the code above in your browser using DataLab