Translated logml2String

NAMESPACE

@@ -15,6 +15,7 @@ export(inputdlg)
 export(isfield)
 export(laskeMuutokset4)
 export(learn_simple_partition)
+export(logml2String)
 export(lueGenePopData)
 export(lueNimi)
 export(noIndex)

R/logml2String.R

@@ -0,0 +1,57 @@
+#' @title Logml to string
+#' @description Returns a string representation of a logml
+#' @param logml input Logml
+#' @return String version of logml
+#' @export
+logml2String <- function(logml) {
+	# Palauttaa logml:n string-esityksen.
+	mjono = '       '
+
+	if (logml == -Inf) {
+		mjono[7] <- '-'
+		return(mjono)
+	}
+
+	if (abs(logml) < 10000) {
+		# Ei tarvita e-muotoa
+		mjono[7] <- palautaYks(abs(logml), -1)
+		mjono[6] <- '.'
+		mjono[5] <- palautaYks(abs(logml), 0)
+		mjono[4] <- palautaYks(abs(logml), 1)
+		mjono[3] <- palautaYks(abs(logml), 2)
+		mjono[2] <- palautaYks(abs(logml), 3)
+		pointer <- 2
+		while (mjono[pointer] == '0' & pointer < 7) {
+			mjono[pointer] <- ' '
+			pointer <- pointer + 1
+		}
+		if (logml < 0) {
+			mjono[pointer - 1] <- '-'
+		}
+	} else {
+		suurinYks <- 4
+		while (abs(logml) / (10 ^ (suurinYks + 1)) >= 1) {
+			suurinYks <- suurinYks + 1
+		}
+		if (suurinYks < 10) {
+			mjono[7] <- as.character(suurinYks)
+			mjono[6] <- 'e'
+			mjono[5] <- palautaYks(abs(logml), suurinYks - 1)
+			mjono[4] <- '.'
+			mjono[3] <- palautaYks(abs(logml), suurinYks)
+			if (logml < 0) {
+				mjono[2] <- '-'
+			}
+		} else if (suurinYks >= 10) {
+			mjono[6:7] <- as.character(suurinYks)
+			mjono[5] <- 'e'
+			mjono[4] <- palautaYks(abs(logml), suurinYks - 1)
+			mjono[3] <- '.'
+			mjono[2] <- palautaYks(abs(logml), suurinYks)
+			if (logml < 0) {
+				mjono[1] <- '-'
+			}
+		}
+	}
+	return(mjono)
+}

man/logml2String.Rd

@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/logml2String.R
+\name{logml2String}
+\alias{logml2String}
+\title{Logml to string}
+\usage{
+logml2String(logml)
+}
+\arguments{
+\item{logml}{input Logml}
+}
+\value{
+String version of logml
+}
+\description{
+Returns a string representation of a logml
+}