From 1433e02fdef62672901d4c4bd5575189549acbfe Mon Sep 17 00:00:00 2001
From: mspiegel
Date: Wed, 25 Mar 2009 22:02:34 +0000
Subject: [PATCH] Added license information to R source files.
git-svn-id: http://openmx.psyc.virginia.edu/svn/trunk@294 df83fd30-4cca-4c36-ab9d-e8b5583ccbd1
---
R/DiagMatrix.R | 15 +++++++++++++++
R/FullMatrix.R | 16 ++++++++++++++++
R/IdenMatrix.R | 16 ++++++++++++++++
R/MxAlgebra.R | 16 ++++++++++++++++
R/MxAlgebraObjective.R | 16 ++++++++++++++++
R/MxBounds.R | 16 ++++++++++++++++
R/MxCharOrNumber.R | 18 +++++++++++++++++-
R/MxConstraint.R | 16 ++++++++++++++++
R/MxData.R | 18 +++++++++++++++++-
R/MxFIMLObjective.R | 16 ++++++++++++++++
R/MxFlatModel.R | 18 +++++++++++++++++-
R/MxJob.R | 16 ++++++++++++++++
R/MxMatrix.R | 16 ++++++++++++++++
R/MxModel.R | 16 ++++++++++++++++
R/MxModelFunctions.R | 16 ++++++++++++++++
R/MxMultiModel.R | 18 +++++++++++++++++-
R/MxObjectiveFunction.R | 18 +++++++++++++++++-
R/MxPath.R | 14 ++++++++++++++
R/MxPathConvert.R | 18 +++++++++++++++++-
R/MxRAMObjective.R | 16 ++++++++++++++++
R/MxSparseMatrix.R | 16 ++++++++++++++++
R/MxSwift.R | 16 ++++++++++++++++
R/MxSymmetricSparse.R | 16 ++++++++++++++++
R/MxUnitTesting.R | 18 +++++++++++++++++-
R/MxUntitled.R | 15 +++++++++++++++
R/SymmMatrix.R | 16 ++++++++++++++++
R/UnitMatrix.R | 16 ++++++++++++++++
R/ZeroMatrix.R | 16 ++++++++++++++++
R/zzz.R | 16 ++++++++++++++++
29 files changed, 467 insertions(+), 7 deletions(-)
diff --git a/R/DiagMatrix.R b/R/DiagMatrix.R
index 52a76a5..fe9060c 100644
--- a/R/DiagMatrix.R
+++ b/R/DiagMatrix.R
@@ -1,3 +1,18 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
setClass(Class = "DiagMatrix",
representation = representation(),
contains = "MxNonSymmetricMatrix")
diff --git a/R/FullMatrix.R b/R/FullMatrix.R
index 98638ab..bf4d9ce 100644
--- a/R/FullMatrix.R
+++ b/R/FullMatrix.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "FullMatrix",
representation = representation(),
contains = "MxNonSymmetricMatrix")
diff --git a/R/IdenMatrix.R b/R/IdenMatrix.R
index 5d27345..ee67d36 100644
--- a/R/IdenMatrix.R
+++ b/R/IdenMatrix.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "IdenMatrix",
representation = representation(),
contains = "MxNonSymmetricMatrix")
diff --git a/R/MxAlgebra.R b/R/MxAlgebra.R
index 94f4913..2eb02dc 100644
--- a/R/MxAlgebra.R
+++ b/R/MxAlgebra.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClassUnion("MxAlgebraFormula", c("call", "name", "logical"))
setClass(Class = "MxAlgebra",
diff --git a/R/MxAlgebraObjective.R b/R/MxAlgebraObjective.R
index 85683b4..84214b2 100644
--- a/R/MxAlgebraObjective.R
+++ b/R/MxAlgebraObjective.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "MxAlgebraObjective",
representation = representation(
algebra = "MxCharOrNumber"),
diff --git a/R/MxBounds.R b/R/MxBounds.R
index fbda3ef..ebc701a 100644
--- a/R/MxBounds.R
+++ b/R/MxBounds.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "MxBounds",
representation = representation(
name = "character",
diff --git a/R/MxCharOrNumber.R b/R/MxCharOrNumber.R
index cdcd9d7..582b487 100644
--- a/R/MxCharOrNumber.R
+++ b/R/MxCharOrNumber.R
@@ -1 +1,17 @@
-setClassUnion("MxCharOrNumber", c("character", "numeric"))
\ No newline at end of file
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
+setClassUnion("MxCharOrNumber", c("character", "numeric"))
diff --git a/R/MxConstraint.R b/R/MxConstraint.R
index bd80aa1..d046056 100644
--- a/R/MxConstraint.R
+++ b/R/MxConstraint.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "MxConstraint",
representation = representation(
name = "character",
diff --git a/R/MxData.R b/R/MxData.R
index 5a6e962..9c0b0fe 100644
--- a/R/MxData.R
+++ b/R/MxData.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClassUnion("MxData", c("data.frame", "matrix"))
omxRemoveDataAliases <- function(datalist) {
@@ -19,4 +35,4 @@ omxDataIndex <- function(name, datalist) {
}
noAlias <- omxRemoveDataAliases(datalist)
return(match(index, names(noAlias)) - 1)
-}
\ No newline at end of file
+}
diff --git a/R/MxFIMLObjective.R b/R/MxFIMLObjective.R
index 8d0fd31..ea568aa 100644
--- a/R/MxFIMLObjective.R
+++ b/R/MxFIMLObjective.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "MxFIMLObjective",
representation = representation(
covariance = "MxCharOrNumber",
diff --git a/R/MxFlatModel.R b/R/MxFlatModel.R
index 99aeb85..5a9e974 100644
--- a/R/MxFlatModel.R
+++ b/R/MxFlatModel.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "MxFlatModel",
representation = representation(
objectives = "list",
@@ -49,4 +65,4 @@ setMethod("show", "MxFlatModel", function(object) {
cat("objectives : ")
print(object@objectives)
cat("datasets :", length(object@datasets), '\n')
-})
\ No newline at end of file
+})
diff --git a/R/MxJob.R b/R/MxJob.R
index 65fca9f..89e4407 100644
--- a/R/MxJob.R
+++ b/R/MxJob.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
mxJobRun <- function(model) {
cat("Running", model@name, "\n")
omxCheckNamespace(model)
diff --git a/R/MxMatrix.R b/R/MxMatrix.R
index 668d510..e7ff76b 100644
--- a/R/MxMatrix.R
+++ b/R/MxMatrix.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
single.na <- function(a) {
return((length(a) == 1) &&
(is.list(a) || is.vector(a)) &&
diff --git a/R/MxModel.R b/R/MxModel.R
index 89a5370..c8c294e 100644
--- a/R/MxModel.R
+++ b/R/MxModel.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "MxModel",
representation = representation(
name = "character",
diff --git a/R/MxModelFunctions.R b/R/MxModelFunctions.R
index c2d0296..609cb43 100644
--- a/R/MxModelFunctions.R
+++ b/R/MxModelFunctions.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
omxGenerateMatrixList <- function(mxModel) {
return(lapply(mxModel@matrices, generateMatrixListHelper))
}
diff --git a/R/MxMultiModel.R b/R/MxMultiModel.R
index ec052c4..07c7818 100644
--- a/R/MxMultiModel.R
+++ b/R/MxMultiModel.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
omxCheckNamespace <- function(model) {
omxCheckNamespaceHelper(model, c(model@name))
}
@@ -206,4 +222,4 @@ omxReplaceModels <- function(model, replacements) {
}
}
return(model)
-}
\ No newline at end of file
+}
diff --git a/R/MxObjectiveFunction.R b/R/MxObjectiveFunction.R
index 23d43e8..a57a16b 100644
--- a/R/MxObjectiveFunction.R
+++ b/R/MxObjectiveFunction.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
#
# Objective Functions are for optimizing!
#
@@ -11,4 +27,4 @@ setClassUnion("MxObjective", c("NULL", "MxBaseObjective"))
setGeneric("omxObjFunConvert",
function(.Object, model, definitions) {
return(standardGeneric("omxObjFunConvert"))
-})
\ No newline at end of file
+})
diff --git a/R/MxPath.R b/R/MxPath.R
index 186e58e..021f8ae 100644
--- a/R/MxPath.R
+++ b/R/MxPath.R
@@ -1,3 +1,17 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
# returns a list of paths
omxPath <- function(from, to = NULL, all = FALSE, free = NULL,
diff --git a/R/MxPathConvert.R b/R/MxPathConvert.R
index 5493ff4..a7f2cd2 100644
--- a/R/MxPathConvert.R
+++ b/R/MxPathConvert.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
convertModelA <- function(model) {
variables <- c(model@manifestVars, model@latentVars)
len <- length(variables)
@@ -101,4 +117,4 @@ omxConvertPathModel <- function(model) {
model[['S']] <- convertModelS(model)
model[['F']] <- convertModelF(model)
return(model)
-}
\ No newline at end of file
+}
diff --git a/R/MxRAMObjective.R b/R/MxRAMObjective.R
index 484ef1a..3ace951 100644
--- a/R/MxRAMObjective.R
+++ b/R/MxRAMObjective.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "MxRAMObjective",
representation = representation(
A = "MxCharOrNumber",
diff --git a/R/MxSparseMatrix.R b/R/MxSparseMatrix.R
index ae781e2..dcb64e0 100644
--- a/R/MxSparseMatrix.R
+++ b/R/MxSparseMatrix.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "MxSparseMatrix",
representation = representation(
rowVector = "vector",
diff --git a/R/MxSwift.R b/R/MxSwift.R
index 68e027a..070174a 100644
--- a/R/MxSwift.R
+++ b/R/MxSwift.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
mxGenSwift <- function(tc, sites, sfile) {
cmdline <- paste("swift -tc.file ",tc," -sites.file ",sites," ",sfile)
system(cmdline)
diff --git a/R/MxSymmetricSparse.R b/R/MxSymmetricSparse.R
index 0d4fbab..44120a7 100644
--- a/R/MxSymmetricSparse.R
+++ b/R/MxSymmetricSparse.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "MxSymmetricSparse",
representation = representation(
rowVector = "vector",
diff --git a/R/MxUnitTesting.R b/R/MxUnitTesting.R
index 4eb581a..c231cea 100644
--- a/R/MxUnitTesting.R
+++ b/R/MxUnitTesting.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
omxCheckEquals <- function(a, b) {
if (a != b) {
stop(paste("Error:", a, "and", b, "are not equal"))
@@ -20,4 +36,4 @@ omxCheckWithinPercentError <- function(a, b, epsilon=10^(-15)) {
if(abs((a - b)/a*100) > epsilon) {
stop(paste("Error: ", b, "does not estimate", a, "within", epsilon, "percent error"))
}
-}
\ No newline at end of file
+}
diff --git a/R/MxUntitled.R b/R/MxUntitled.R
index 2113ba4..d99152e 100644
--- a/R/MxUntitled.R
+++ b/R/MxUntitled.R
@@ -1,3 +1,18 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
omxUntitledNumber <- function() {
omxUntitledCounter <<- omxUntitledCounter + 1
diff --git a/R/SymmMatrix.R b/R/SymmMatrix.R
index 905bff9..99ed5d8 100644
--- a/R/SymmMatrix.R
+++ b/R/SymmMatrix.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "SymmMatrix",
representation = representation(),
contains = "MxSymmetricMatrix")
diff --git a/R/UnitMatrix.R b/R/UnitMatrix.R
index 11a75cc..ce7b96a 100644
--- a/R/UnitMatrix.R
+++ b/R/UnitMatrix.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "UnitMatrix",
representation = representation(),
contains = "MxNonSymmetricMatrix")
diff --git a/R/ZeroMatrix.R b/R/ZeroMatrix.R
index ca2384c..cf83865 100644
--- a/R/ZeroMatrix.R
+++ b/R/ZeroMatrix.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
setClass(Class = "ZeroMatrix",
representation = representation(),
contains = "MxNonSymmetricMatrix")
diff --git a/R/zzz.R b/R/zzz.R
index 6697237..71961fe 100644
--- a/R/zzz.R
+++ b/R/zzz.R
@@ -1,3 +1,19 @@
+#
+# Copyright 2007-2009 The OpenMx Project
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+
#TODO: replace with .onLoad once namespaces are implemented
.First.lib <- function(libname, pkgname) {
--
2.1.4