Last data update: 2014.03.03

R: Regularise set of profiles
smoothProfilesR Documentation

Regularise set of profiles

Description

This function takes a set of profiles and regularise them by means of a SVM

Usage

smoothProfiles(profiles, x = 1:nrow(profiles), svm.c = NULL,
  svm.eps = NULL, svm.gamma = NULL, parsvm.unique = TRUE)

Arguments

profiles

Matrix of y values, one column per profile

x

Vector of predictive variable values, common to all profiles

svm.c

SVM parameter (cost)

svm.eps

SVM parameter (epsilon)

svm.gamma

SVM parameter (gamma)

parsvm.unique

Same parameters for all profiles? (logical [TRUE])

Value

Regularized profiles

Note

The package e1071 is needed in order to be able to use this function. SVM Parameters can be vectors of the same lenght as number of profiles, or a single value for all of them

Author(s)

Javier M. Moguerza and Emilio L. Cano

References

Cano, E.L. and Moguerza, J.M. and Prieto Corcoba, M. (2015) Quality Control with R. An ISO Standards Approach. Springer.

Examples

wby.smooth <- smoothProfiles(profiles = ss.data.wby,
    x = ss.data.wbx)
plotProfiles(profiles = wby.smooth,
    x = ss.data.wbx)     

Results


R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(SixSigma)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/SixSigma/smoothProfiles.Rd_%03d_medium.png", width=480, height=480)
> ### Name: smoothProfiles
> ### Title: Regularise set of profiles
> ### Aliases: smoothProfiles
> 
> ### ** Examples
> 
> wby.smooth <- smoothProfiles(profiles = ss.data.wby,
+     x = ss.data.wbx)
> plotProfiles(profiles = wby.smooth,
+     x = ss.data.wbx)     
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>