1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
\name{write.pca}
\Rdversion{1.1}
\alias{write.pca}
\title{
Creates a file of coordinates in PCA space
}
\description{
Given an object of class 'pca' (result of the \code{\link{centered_pca}} function), stores the coordinates of each element in the PC space in a txt file
}
\usage{
write.pca(corr_pca,filepathroot, pc=NULL, entropy= NULL)
}
\arguments{
\item{corr_pca}{
An object created by the \code{\link{centered_pca}} function from a correlation/covariation matrix
}
\item{filepathroot}{
The root for the full path name of the output file where all coordinates on all components are stored. If NULL, a "PCA_COORD.csv" file is created in tempdir(). If not NULL, the "_PCA_COORD.csv extension is added to the filepathroot.
}
\item{pc}{
An integer corresponding to the number of principal components for which coordinates of the elements are saved. By default, this number corresponds to the number of components with positive eigen values.
}
\item{entropy}{
An object created by the \code{\link{entropy}} or the \code{\link{dynamic_entropy}} function. DEfault is NULL.
}
}
\details{
The object returned by the \code{\link{centered_pca}} function contains coordinates in the PC space for each element.
Each line of the pca file will contain the name of the current element and its coordinates.
Any line that contains Na value for X, Y or Z coordinates will be ignored.
}
\value{
returns a file containing the coordinates of each element in PC space.
}
\author{
Antoine GARNIER
}
\examples{
#File path for output files
out <- tempdir()
file <- file.path(out,"test_seq4")
#Importing MSA file
msf <- system.file("msa/toy_align.msf", package = "Bios2cor")
align <- import.msf(msf)
#Creating OMES correlation object and selecting correlation matrix
omes <- omes(align, gap_ratio = 0.2)
omes <-omes$Zscore
#Creating PCA object for selected matrix
pca <- centered_pca(omes, filepathroot= file, filter = NULL, pc= NULL, dec_val= 5)
#Saving coordinates of elements in csv file
write.pca(pca, file, pc = 10, entropy = NULL)
}
|
