[Distr-commits] r108 - in pkg/distrMod: . R chm man

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Sat Mar 29 00:24:45 CET 2008 

Author: ruckdeschel
Date: 2008-03-29 00:24:45 +0100 (Sat, 29 Mar 2008)
New Revision: 108

Added:
   pkg/distrMod/R/sqrt.R
   pkg/distrMod/chm/sqrt-methods.html
   pkg/distrMod/man/sqrt-methods.Rd
Modified:
   pkg/distrMod/NAMESPACE
   pkg/distrMod/chm/00Index.html
   pkg/distrMod/chm/distrMod.chm
   pkg/distrMod/chm/distrMod.hhp
   pkg/distrMod/chm/distrMod.toc
Log:
new function: sqrt for PosDefSymmMatrix

Modified: pkg/distrMod/NAMESPACE
===================================================================
--- pkg/distrMod/NAMESPACE	2008-03-27 14:28:41 UTC (rev 107)
+++ pkg/distrMod/NAMESPACE	2008-03-28 23:24:45 UTC (rev 108)
@@ -31,7 +31,7 @@
               "FisherInfo", "checkL2deriv")
 exportMethods("bound", "width")
 exportMethods("nu", "name", "sign", "nu<-", "name<-", "sign<-", "biastype", "biastype<-")
-exportMethods("solve")
+exportMethods("solve", "sqrt")
 exportMethods("existsPIC")
 exportMethods("modifyModel")
 exportMethods("norm",  "QuadForm<-", "QuadForm", "fct", 

Added: pkg/distrMod/R/sqrt.R
===================================================================
--- pkg/distrMod/R/sqrt.R	                        (rev 0)
+++ pkg/distrMod/R/sqrt.R	2008-03-28 23:24:45 UTC (rev 108)
@@ -0,0 +1,6 @@
+setMethod("sqrt", signature(x = "PosSemDefSymmMatrix"), function(x){
+            er <- eigen(x)
+            d <- sqrt(er$values)
+            return(er$vectors %*% diag(d) %*% t(er$vectors))
+})
+

Modified: pkg/distrMod/chm/00Index.html
===================================================================
--- pkg/distrMod/chm/00Index.html	2008-03-27 14:28:41 UTC (rev 107)
+++ pkg/distrMod/chm/00Index.html	2008-03-28 23:24:45 UTC (rev 108)
@@ -499,6 +499,12 @@
 <td>Generating function for SphericalSymmetry-class</td></tr>
 <tr><td width="25%"><a href="SphericalSymmetry-class.html">SphericalSymmetry-class</a></td>
 <td>Class for Spherical Symmetric Distributions</td></tr>
+<tr><td width="25%"><a href="sqrt-methods.html">sqrt</a></td>
+<td>Methods for Function sqrt in Package &lsquo;distrMod&rsquo; </td></tr>
+<tr><td width="25%"><a href="sqrt-methods.html">sqrt,PosSemDefSymmMatrix-method</a></td>
+<td>Methods for Function sqrt in Package &lsquo;distrMod&rsquo; </td></tr>
+<tr><td width="25%"><a href="sqrt-methods.html">sqrt-methods</a></td>
+<td>Methods for Function sqrt in Package &lsquo;distrMod&rsquo; </td></tr>
 <tr><td width="25%"><a href="Symmetry-class.html">SymmCenter</a></td>
 <td>Class of Symmetries</td></tr>
 <tr><td width="25%"><a href="Symmetry-class.html">SymmCenter,Symmetry-method</a></td>

Modified: pkg/distrMod/chm/distrMod.chm
===================================================================
(Binary files differ)

Modified: pkg/distrMod/chm/distrMod.hhp
===================================================================
--- pkg/distrMod/chm/distrMod.hhp	2008-03-27 14:28:41 UTC (rev 107)
+++ pkg/distrMod/chm/distrMod.hhp	2008-03-28 23:24:45 UTC (rev 108)
@@ -108,6 +108,7 @@
 onesidedBias-class.html
 positiveBias.html
 solve-methods.html
+sqrt-methods.html
 symmetricBias-class.html
 symmetricBias.html
 trAsCov-class.html

Modified: pkg/distrMod/chm/distrMod.toc
===================================================================
--- pkg/distrMod/chm/distrMod.toc	2008-03-27 14:28:41 UTC (rev 107)
+++ pkg/distrMod/chm/distrMod.toc	2008-03-28 23:24:45 UTC (rev 108)
@@ -810,6 +810,18 @@
 <param name="Local" value="SphericalSymmetry-class.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
+<param name="Name" value="sqrt">
+<param name="Local" value="sqrt-methods.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="sqrt,PosSemDefSymmMatrix-method">
+<param name="Local" value="sqrt-methods.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
+<param name="Name" value="sqrt-methods">
+<param name="Local" value="sqrt-methods.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
 <param name="Name" value="SymmCenter">
 <param name="Local" value="Symmetry-class.html">
 </OBJECT>
@@ -1227,6 +1239,10 @@
 <param name="Local" value="solve-methods.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
+<param name="Name" value="Methods for Function sqrt in Package `distrMod' ">
+<param name="Local" value="sqrt-methods.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
 <param name="Name" value="Norm classes for norms based on quadratic forms">
 <param name="Local" value="QFnorm-class.html">
 </OBJECT>

Added: pkg/distrMod/chm/sqrt-methods.html
===================================================================
--- pkg/distrMod/chm/sqrt-methods.html	                        (rev 0)
+++ pkg/distrMod/chm/sqrt-methods.html	2008-03-28 23:24:45 UTC (rev 108)
@@ -0,0 +1,58 @@
+<html><head><title>Methods for Function sqrt in Package &lsquo;distrMod&rsquo;</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+<link rel="stylesheet" type="text/css" href="Rchm.css">
+</head>
+<body>
+
+<table width="100%"><tr><td>sqrt-methods(distrMod)</td><td align="right">R Documentation</td></tr></table><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
+<param name="keyword" value="R:   sqrt-methods">
+<param name="keyword" value="R:   sqrt">
+<param name="keyword" value="R:   sqrt,PosSemDefSymmMatrix-method">
+<param name="keyword" value=" Methods for Function sqrt in Package &lsquo;distrMod&rsquo;">
+</object>
+
+
+<h2>Methods for Function sqrt in Package &lsquo;distrMod&rsquo;</h2>
+
+
+<h3>Description</h3>
+
+<p>
+sqrt-methods using generalized inverses for p.s.d. matrices
+</p>
+
+
+<h3>Usage</h3>
+
+<pre>sqrt(x)
+## S4 method for signature 'PosSemDefSymmMatrix':
+sqrt(x)
+</pre>
+
+
+<h3>Arguments</h3>
+
+<table summary="R argblock">
+<tr valign="top"><td><code>x</code></td>
+<td>
+a p.s.d. matrix (of class <code>PosSemDefSymmMatrix</code></td></tr>
+</table>
+
+<h3>Methods</h3>
+
+<dl>
+<dt>sqrt</dt><dd><code>signature(x = "PosSemDefSymmMatrix")</code>: produces a symmetric,
+p.s.d. matrix y such that x = y^2</dd>
+</dl>
+
+<h3>Author(s)</h3>
+
+<p>
+Peter Ruckdeschel <a href="mailto:Peter.Ruckdeschel at uni-bayreuth.de">Peter.Ruckdeschel at uni-bayreuth.de</a>
+</p>
+
+
+
+<hr><div align="center">[Package <em>distrMod</em> version 2.0 <a href="00Index.html">Index]</a></div>
+
+</body></html>

Added: pkg/distrMod/man/sqrt-methods.Rd
===================================================================
--- pkg/distrMod/man/sqrt-methods.Rd	                        (rev 0)
+++ pkg/distrMod/man/sqrt-methods.Rd	2008-03-28 23:24:45 UTC (rev 108)
@@ -0,0 +1,27 @@
+\name{sqrt-methods}
+\docType{methods}
+\alias{sqrt-methods}
+\alias{sqrt}
+\alias{sqrt,PosSemDefSymmMatrix-method}
+\title{ Methods for Function sqrt in Package `distrMod' }
+\description{sqrt-methods using generalized inverses for p.s.d. matrices}
+
+\usage{sqrt(x)
+\S4method{sqrt}{PosSemDefSymmMatrix}(x)
+}
+\arguments{
+  \item{x}{a p.s.d. matrix (of class \code{PosSemDefSymmMatrix}}
+}
+\section{Methods}{\describe{
+\item{sqrt}{\code{signature(x = "PosSemDefSymmMatrix")}: produces a symmetric,
+ p.s.d. matrix y such that x = y^2}
+}}
+\author{Peter Ruckdeschel \email{Peter.Ruckdeschel at uni-bayreuth.de}}
+\seealso{
+\code{\link{solve}} }
+\keyword{algebra}
+\keyword{array}
+\concept{pseudo inverse}
+\concept{inverse}
+\concept{svd}
+\concept{eigenvalue decomposition}

More information about the Distr-commits mailing list