[Gogarch-commits] r6 - in pkg: R man
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Sun Jan 25 14:14:02 CET 2009
Author: bpfaff
Date: 2009-01-25 14:14:02 +0100 (Sun, 25 Jan 2009)
New Revision: 6
Added:
pkg/R/Orthom-class.R
pkg/R/Orthom-show.R
pkg/man/Orthom-class.Rd
Removed:
pkg/R/orthom-class.R
pkg/R/orthom-show.R
pkg/man/orthom-class.Rd
Log:
Capitalized file names of class files for Orthom.
Copied: pkg/R/Orthom-class.R (from rev 4, pkg/R/orthom-class.R)
===================================================================
--- pkg/R/Orthom-class.R (rev 0)
+++ pkg/R/Orthom-class.R 2009-01-25 13:14:02 UTC (rev 6)
@@ -0,0 +1,29 @@
+##
+## Class definition of orthogonal matrices
+##
+setClass("Orthom", representation(M = "matrix"))
+##
+## Validity function for objects of class Orthom
+##
+validOrthomObject <- function(object){
+ m <- nrow(object at M)
+ if(all.equal(diff(dim(object at M)), 0, check.attributes = FALSE)){
+ TRUE
+ } else {
+ stop("\nObject is not a square matrix.\n")
+ }
+ if(all.equal(det(object at M), 1, check.attributes = FALSE)){
+ TRUE
+ } else {
+ stop("\nDeterminant of object is not equal to 1.\n")
+ }
+ if(all.equal(crossprod(object at M), diag(m), check.attributes = FALSE)){
+ TRUE
+ } else {
+ stop("\nThe cross product of the object is not the Identity matrix.\n")
+ }
+}
+##
+## Setting validOrthomObject() as validity function
+##
+setValidity("Orthom", validOrthomObject)
Property changes on: pkg/R/Orthom-class.R
___________________________________________________________________
Name: svn:mergeinfo
+
Copied: pkg/R/Orthom-show.R (from rev 4, pkg/R/orthom-show.R)
===================================================================
--- pkg/R/Orthom-show.R (rev 0)
+++ pkg/R/Orthom-show.R 2009-01-25 13:14:02 UTC (rev 6)
@@ -0,0 +1,4 @@
+##
+## show-method for objects of class orthom
+##
+setMethod("show", "Orthom", function(object) print(object at M))
Property changes on: pkg/R/Orthom-show.R
___________________________________________________________________
Name: svn:mergeinfo
+
Deleted: pkg/R/orthom-class.R
===================================================================
--- pkg/R/orthom-class.R 2009-01-22 21:11:27 UTC (rev 5)
+++ pkg/R/orthom-class.R 2009-01-25 13:14:02 UTC (rev 6)
@@ -1,29 +0,0 @@
-##
-## Class definition of orthogonal matrices
-##
-setClass("Orthom", representation(M = "matrix"))
-##
-## Validity function for objects of class Orthom
-##
-validOrthomObject <- function(object){
- m <- nrow(object at M)
- if(all.equal(diff(dim(object at M)), 0, check.attributes = FALSE)){
- TRUE
- } else {
- stop("\nObject is not a square matrix.\n")
- }
- if(all.equal(det(object at M), 1, check.attributes = FALSE)){
- TRUE
- } else {
- stop("\nDeterminant of object is not equal to 1.\n")
- }
- if(all.equal(crossprod(object at M), diag(m), check.attributes = FALSE)){
- TRUE
- } else {
- stop("\nThe cross product of the object is not the Identity matrix.\n")
- }
-}
-##
-## Setting validOrthomObject() as validity function
-##
-setValidity("Orthom", validOrthomObject)
Deleted: pkg/R/orthom-show.R
===================================================================
--- pkg/R/orthom-show.R 2009-01-22 21:11:27 UTC (rev 5)
+++ pkg/R/orthom-show.R 2009-01-25 13:14:02 UTC (rev 6)
@@ -1,4 +0,0 @@
-##
-## show-method for objects of class orthom
-##
-setMethod("show", "Orthom", function(object) print(object at M))
Copied: pkg/man/Orthom-class.Rd (from rev 4, pkg/man/orthom-class.Rd)
===================================================================
--- pkg/man/Orthom-class.Rd (rev 0)
+++ pkg/man/Orthom-class.Rd 2009-01-25 13:14:02 UTC (rev 6)
@@ -0,0 +1,52 @@
+\name{Orthom-class}
+
+\docType{class}
+
+\alias{Orthom-class}
+\alias{show,Orthom-method}
+
+\encoding{latin1}
+
+\title{Class "Orthom": Orthogonal matrices}
+
+\description{
+ This class defines an orthogonal matrix, which is characterized by
+ \eqn{det(M) = 1} and \eqn{M M' = I}.
+}
+
+\section{Objects from the Class}{
+ Objects can be created by calls of the form \code{new("Orthom",
+ ...)}. In addition the function \code{UprodR} returns an object of
+ formal class \code{Orthom}.
+}
+
+\section{Slots}{
+ \describe{
+ \item{\code{M}:}{Object of class \code{"matrix"}.}
+ }
+}
+
+\section{Methods}{
+ \describe{
+ \S4method{show}{print-method applied to \code{object at M}.}
+ }
+}
+
+\author{
+ Bernhard Pfaff
+}
+
+\note{Objects are validated by \code{validOrthomObject()}. This function
+ is utilised by \code{validObject()}.}
+
+\seealso{
+ \code{\link{UprodR}}, \code{\link{validOrthomObject}}
+}
+
+\examples{
+showClass("Orthom")
+}
+
+\keyword{classes}
+\keyword{algebra}
+\concept{Orthogonal Matrix}
Property changes on: pkg/man/Orthom-class.Rd
___________________________________________________________________
Name: svn:mergeinfo
+
Deleted: pkg/man/orthom-class.Rd
===================================================================
--- pkg/man/orthom-class.Rd 2009-01-22 21:11:27 UTC (rev 5)
+++ pkg/man/orthom-class.Rd 2009-01-25 13:14:02 UTC (rev 6)
@@ -1,52 +0,0 @@
-\name{Orthom-class}
-
-\docType{class}
-
-\alias{Orthom-class}
-\alias{show,Orthom-method}
-
-\encoding{latin1}
-
-\title{Class "Orthom": Orthogonal matrices}
-
-\description{
- This class defines an orthogonal matrix, which is characterized by
- \eqn{det(M) = 1} and \eqn{M M' = I}.
-}
-
-\section{Objects from the Class}{
- Objects can be created by calls of the form \code{new("Orthom",
- ...)}. In addition the function \code{UprodR} returns an object of
- formal class \code{Orthom}.
-}
-
-\section{Slots}{
- \describe{
- \item{\code{M}:}{Object of class \code{"matrix"}.}
- }
-}
-
-\section{Methods}{
- \describe{
- \S4method{show}{print-method applied to \code{object at M}.}
- }
-}
-
-\author{
- Bernhard Pfaff
-}
-
-\note{Objects are validated by \code{validOrthomObject()}. This function
- is utilised by \code{validObject()}.}
-
-\seealso{
- \code{\link{UprodR}}, \code{\link{validOrthomObject}}
-}
-
-\examples{
-showClass("Orthom")
-}
-
-\keyword{classes}
-\keyword{algebra}
-\concept{Orthogonal Matrix}
More information about the Gogarch-commits
mailing list