PSFThickVar: Calculate PSF table for variouts thickness values and write...

In ShinsukeSakai0321/PSFCalc:

Description

Calculate PSF table for variouts thickness values and write the result to specified file

Usage

PSFThickVar(outfile = "example-res.csv", Pft = 1e-04, Cvmu = 0.1, Cvcov = 0.5, Di = 2400, tr = c(10, 20), Sa = 100)

Arguments

outfile
Pft
Cvmu
Cvcov
Di
tr
Sa

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (outfile = "example-res.csv", Pft = 1e-04, Cvmu = 0.1,
    Cvcov = 0.5, Di = 2400, tr = c(10, 20), Sa = 100)
{
    i <- 0
    for (itr in 1:length(tr)) {
        i <- i + 1
        if (i == 1) {
            iflag <- FALSE
        }
        else {
            iflag <- TRUE
        }
        infile <- system.file("example.csv", package = "PSFCalc")
        aa <- read.csv(infile)
        aa$Dimu <- Di
        aa$trmu <- tr[itr]
        aa$Cvmu <- Cvmu
        aa$Cvcov <- Cvcov
        psfcal <- PSFCalc::PSFControl$new(aa)
        psfcal$Adjust(Sa = Sa)
        rescalc <- psfcal$PSFEval(Di = Di, tr = tr[itr], Pft = Pft,
            Cvmu = Cvmu, Cvcov = Cvcov, Sa = Sa)
        options(warn = -1)
        write.table(rescalc, outfile, sep = ",", quote = F, row.names = F,
            append = iflag)
        options(warn = 0)
    }
  }

ShinsukeSakai0321/PSFCalc documentation built on May 20, 2019, 2:24 p.m.