Displaying 1 result from an estimated 1 matches for "mir_clf3md".
2013 Jan 24
0
How to add a function to another written code?
...tion(obs, sat){
sqrt(mean((obs-sat)^2, na.rm=T))
}
Corr code
dir1 <- list.files("D:\\2010\\data\\monthly", "*.bin", full.names =
TRUE)
dir1<- mixedsort(dir1)
dir2 <- list.files("D:\\RE01\\MIR_CLF3MD\\2010\\final-2010",
"*.envi", full.names = TRUE)
dir2<- mixedsort(dir2)
file_tot<-array(dim=c(1440,720,12,2))
for(i in 1:length(dir1)){
file_tot[,,i,1] <- readBin(dir1[i], numeric(), size = 4 ,n = 1440 *
720 , signed = T)
file_tot[,,i...