Задача автоматизации с использованием R - PullRequest
Новая
       4

Задача автоматизации с использованием R

0 голосов
/ 04 мая 2020

Мне нужна помощь в автоматизации задачи с помощью RStudio. Я хотел бы использовать пакет LPM (Linear Parametri c Models Applied to Hydrological Series) для оценки частотной кривой продолжительности интенсивности для серии максимальных годовых осадков различной продолжительности с помощью функции IDFcurve2. интересующий меня выходной набор - это значения a (Tr), m и b. У меня есть таблицы в формате excel (xlsx). Всего 630 таблиц. Значит, мне нужно запустить код для 630 * 3 = 1890 раз. Другими словами, получение 1890 (a (Tr), m и b) устанавливает.

Код, который я пишу: 

files <- list.files(path="D:/PhD/biass_corrected_netCDF/Calculate max Annual Prepicitation/test", pattern="*.xlsx", full.names=TRUE, recursive=FALSE)
pr <- function (files){
data <- data.frame(files)
IDFcurve2(data, 10, stvalue1 = 1, stvalue2 = 1,t=c(3, 6, 9, 12, 15, 18, 21, 24), Tr = 200, MP=T)
}

lapply( x= data, FUN = pr)

, не могли бы вы исправить код, чтобы прочитать лист Excel преобразовать его во фрейм данных, использовать дейтаграмму в качестве входных данных для функции IDFcurve2 (первый вход (данные) и другие аргументы функции постоянны, как уже было сказано), затем, наконец, записать набор результатов (a (Tr), м, и б) параметры и действительно способ текстовый файл.

Заранее спасибо

...