23 lines
1.0 KiB
R
23 lines
1.0 KiB
R
|
|
#' 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)
|
|
}
|