Some version changes

RBBGCMuso/R/changeMuso.R~

@@ -0,0 +1,22 @@
+
+#' This is the function which is capable change multiple specific lines to other using their row numbers.
+#'
+#' he function uses the previous changspecline function to operate.
+         ##From now changespecline is in the forarcheologist file, because its no longer needed
+#' 
+#' @author Roland Hollós
+
+changemulline <- function(filename,calibrationpar,contents){
+                                        #This is the function which is capable change multiple specific lines to other using their row numbers.
+                                        #The function uses the previous changspecline function to operate.
+         ##From now changespecline is in the forarcheologist file, because its no longer needed
+        varnum <- length(calibrationpar)
+        if(length(contents)!=varnum)
+        {
+            cat("Error: number of the values is not the same as the number of the changed parameters")
+        }
+
+        TOT=readLines(filename,-1)
+        TOT[calibrationpar]<-contents
+        writeLines(TOT,filename)
+    }

RBBGCMuso/R/stamplog.R~

@@ -0,0 +1,31 @@
+#' This function returns only the starting numbers of a string
+#' 
+#' This function returns only the starting numbers of a string
+#' @author Roland Hollós
+
+numcut<-function(string){
+    #This function returns only the starting numbers of a string
+    unlist(strsplit(grep("^[0-9]",string,value = TRUE),"[aAzZ-]"))[1]
+}
+
+#' numcutall
+#'
+#' apply numcut for all elements of a string vector
+#' @author Roland Hollós
+numcutall<-function(vector){
+    #numcall apply numcut for all elements of a string vector
+as.numeric(unlist(apply(as.matrix(vector),1,numcut)))
+}
+
+#' It gives back a stamp wich is the maximum number of the output numcall
+#'
+#' It gives back a stamp wich is the maximum number of the output numcall
+#' @author Roland Hollós
+#' 
+stamp<-function(path="./"){
+    #It gives back a stamp wich is the maximum number of the output numcall
+    numbers<-numcutall(list.files(path))
+    if(length(numbers)==0){
+        return (0)} else {
+                   return(max(numbers))}
+}

TODOS.org

@@ -0,0 +1,10 @@
+* Tervek
+** Dokumentáció
+   1) 
+      1) 
+      2) 
+	 1) 
+	 2) 
+      3) 
+   2) 
+** Programozás

TODOS~

@@ -0,0 +1,26 @@
+DOCUMENTATIONS
+===========================================================
+1. Rewriting some of the man pages (for better english)
+2. Description for the functions
+3. Details for the functions
+4. Vignettes...
+
+PROGRAMING
+===========================================================
+1. Automatic handle for executable files
+2. Fix the spinumMuso, and the normalMuso functions
+3. Fix the export functions.
+4. Build in the mtclim43 to RBBGCMuso
+
+TESTING
+===========================================================
+1. Jasca
+2. Kiskun
+3. HHS
+4. Bugac
+
+CALIBRATION AND OTHERS
+============================================================
+1. Local sensitivity analysis
+2. Morriss sensitivity analysis
+3. MCMC