Displaying 1 result from an estimated 1 matches for "animal_distances".
2010 Jul 14
1
Write value to PHP webpage
...taframe
dat3 <- data.frame(Animal)
for (i in c(1:length(wild_ID))) {
# Create Subset
dat <-subset(wild, ID == wild_ID[i])
# Calculate Sum of Movement, put in km
dat2 <-(sum(dat$STEPLENGTH))/1000
dat3$Distance[i] <-dat2
# Write Value to CSV file
outfile <-paste(filepath,"Animal_Distances",".csv",sep="")
write.csv(dat3,file=outfile, quote = FALSE, row.names = FALSE)
# Create PHP connection and export distance traveled to specific
location in PHP code
PHP <-file(description = "x:/Web/Gnu/tracking_copy_temp.php", open = "r+")
######...