R/disttoD2.r

Defines functions disttoD2

Documented in disttoD2

  ###########################
  #### function D2toDist ####
  ###########################


 disttoD2 <- function(distance){
   if (!inherits(distance,"D2")){
     if (!inherits(distance,"dist")&&!inherits(distance,"dissimilarity")) 
       stop("the distance matrix must be of class 'dist'/'dissimilarity")
     if (inherits(distance,"dissimilarity")&&attr(distance,"Metric")=="mixed")
      Delta <- as.matrix(distance)
     else
      Delta<-as.matrix(distance)^2
   }
   else
    Delta<-distance
   
   class(Delta)<-"D2"             
  return(Delta)
 }

Try the dbstats package in your browser

Any scripts or data that you put into this service are public.

dbstats documentation built on Dec. 7, 2022, 5:14 p.m.