Description Usage Arguments Public function See Also Examples
Class definition for metal loss analysis
1 |
name |
name of analysis |
n |
number of random variables |
Mu |
list of mean values of variables |
sigmmaX |
list of std. values of variables |
dist |
list of distribution type |
ttime |
inspection time |
Standard reference class is R6 class
Public function
function | contents | variable(s) |
initialize(name,n,Mu,sigmmaX,dist,ttime) | initializes the object | name:name of the subject,n:number of variables,Mu:list of mean of variables,sigmmaX:list of std. of variables,dist:list of name of variable distributions,ttime:inspection time |
Calc() | executes reliability analysis | |
PSF() | returns list of PSF values | |
This is inheritted class of LSFM. As for Class LSFM, see LimitState::LSFM.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | #If it is necessary, install package "LimitState" as follows
#install.packages("devtools")
#devtools::install_github("ShinsukeSakai0321/LimitState")
library(LimitState)
#
#Read example data from data directory
data(example)
fdata<-example
muX <- c(fdata$Cvmu, fdata$Pamu, fdata$trmu, fdata$nomu, fdata$Dimu, fdata$Sumu, fdata$smu, fdata$tmmmu)
COVX <- c(fdata$Cvcov,fdata$Pacov,fdata$trcov,fdata$nocov,fdata$Dicov,fdata$Sucov,fdata$scov,fdata$tmmcov)
sigmmaX <- muX * COVX
dist <- c("gumbel", "gumbel", "normal", "normal" ,"normal" ,"normal" ,"normal" ,"normal")
metal <- PSFCalc::MetalLoss$new("MetalLoss",8,muX,sigmmaX,dist,fdata$ttime)
metal$Calc()
Pf <- metal$GetPOF()
cat("Pf=",Pf,"\n")
#correct answer=2.144935e-07
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.