PCAClass Module

Uses

Derived Types

type, public :: PCA_

Components

Type	Visibility	Attributes		Name		Initial
logical,	public		::	columns_are_feature_names	=	.true.
real(kind=real64),	public,	allocatable	::	DataFrame(:,:)
real(kind=real64),	public,	allocatable	::	CovMatrix(:,:)
real(kind=real64),	public,	allocatable	::	EigenVector(:,:)
real(kind=real64),	public,	allocatable	::	EigenValue(:)

Type-Bound Procedures

procedure, public :: load => loadPCA
procedure, public :: standarize => standarizePCA
procedure, public :: run => runPCA
procedure, public :: principalComponent => principalComponentPCA

Functions

public function principalComponentPCA(obj) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(PCA_),	intent(in)			::	obj

Return Value real(kind=real64), allocatable, (:,:)

Subroutines

public subroutine loadPCA(obj, filename, DataFrame, columns_are_feature_names, num_feature)

Arguments

Type	Intent	Optional	Attributes		Name
class(PCA_),	intent(inout)			::	obj
character(len=*),	intent(in),	optional		::	filename
real(kind=real64),	intent(in),	optional		::	DataFrame(:,:)
logical,	intent(in),	optional		::	columns_are_feature_names
integer(kind=int32),	intent(in),	optional		::	num_feature

public subroutine standarizePCA(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(PCA_),	intent(inout)			::	obj

public subroutine runPCA(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(PCA_),	intent(inout)			::	obj