如何解决创建循环以在使用特定绘图函数时获得多个绘图
我正在使用 sicegar 包将双 sigmoidal 曲线拟合到不同位置的 NDVI 数据。我有 15 个数据框,其中至少有 700 个位置。我创建了一个循环来将曲线拟合到每个数据框的每个位置并获得拐点,但我似乎无法让循环打印多个图(在 r 中或作为 jpg)能够以视觉方式评估拟合优度。我以前见过打印多个图的循环,但这些图是通过包中的特定调用创建的。
这是拟合一条曲线并绘制它的代码:
cols<-c(737,1)
first<-ndvi[,cols]
colnames(first)<-c("time","intensity")
first$time<-as.numeric(first$time)
first$intensity<-as.numeric(first$intensity)
normalizedInput <- normalizeData(dataInput = first,dataInputName = "doubleSigmoidalSample")
doubleSigmoidalModel <- multipleFitFunction(dataInput=normalizedInput,model="doublesigmoidal")
fitObj_dsm <- fitAndCategorize(dataInput = first)
figureModelCurves(dataInput = fitObj_dsm$normalizedInput,doubleSigmoidalFitVector = fitObj_dsm$doubleSigmoidalModel,showParameterRelatedLines = TRUE) #this is the function that gives me the plot
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。