Description Usage Arguments Value Examples
Accessor to compromise coordinates from LinkData output.
1 2 | ## S4 method for signature 'DistStatis'
compromise_coords(x)
|
x |
an object from DistSatis class. |
compromise_coords coordinates of observations in the compromise configuration from LinkData function
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | {
data(Taraoceans)
pro.phylo <- Taraoceans$taxonomy[ ,'Phylum']
TaraOc<-list(Taraoceans$phychem,as.data.frame(Taraoceans$pro.phylo)
,as.data.frame(Taraoceans$pro.NOGs))
TaraOc_1<-scale(TaraOc[[1]])
Normalization<-lapply(list(TaraOc[[2]],TaraOc[[3]]),
function(x){DataProcessing(x,Method='Compositional')})
colnames(Normalization[[1]])=pro.phylo
colnames(Normalization[[2]])=Taraoceans$GO
TaraOc<-list(TaraOc_1,Normalization[[1]],Normalization[[2]])
names(TaraOc)<-c('phychem','pro_phylo','pro_NOGs')
TaraOc<-lapply(TaraOc,as.data.frame)
Output<-LinkData(TaraOc,Scale =FALSE,Distance = c('ScalarProduct','Euclidean','Euclidean'))
compromise_coords(Output)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.