Running examples in 'moveVis-Ex.R' failed
The error most likely occurred in:

> ### Name: animate_move
> ### Title: Animate movement data
> ### Aliases: animate_move
> 
> ### ** Examples
> 
> #Load move and moveVis packages
> library(move)
Loading required package: geosphere
Loading required package: sp
Loading required package: raster
Loading required package: rgdal
rgdal: version: 1.2-7, (SVN revision 660)
 Geospatial Data Abstraction Library extensions to R successfully loaded
 Loaded GDAL runtime: GDAL 2.0.1, released 2015/09/15
 Path to GDAL shared files: D:/temp/RtmpEXDGae/RLIBS_20303c7c7876/rgdal/gdal
 Loaded PROJ.4 runtime: Rel. 4.9.2, 08 September 2015, [PJ_VERSION: 492]
 Path to PROJ.4 shared files: D:/temp/RtmpEXDGae/RLIBS_20303c7c7876/rgdal/proj
 Linking to sp version: 1.2-4 
> library(moveVis)
> 
> #Get the sample data from the moveVis package
> data("move_data")
> move_data$dt <- as.POSIXct(strptime(move_data$dt, "%Y-%m-%d %H:%M:%S", tz = "UTC"))
> 
> #Differentiate data per individual
> indi_levels <- levels(move_data$individual)
> indi_levels_n <- length(indi_levels)
> for(i in 1:indi_levels_n){
+   if(i == 1){
+     indi_subset <- list(subset(move_data, individual == indi_levels[i]))
+   }else{
+     indi_subset <- c(indi_subset,list(subset(move_data,
+                                individual == indi_levels[i])))
+   }
+ }
> indi_names <- paste(indi_levels, collapse = ", ")
> 
> #Create move class object
> for(i in 1:length(indi_subset)){
+   if(i == 1){
+      data_ani <- list(move(x=indi_subset[[i]]$lon,y=indi_subset[[i]]$lat,
+                                  time=indi_subset[[i]]$dt,
+                                  proj=CRS("+proj=longlat +ellps=WGS84"),
+                                  animal=indi_levels[i]))
+   }else{
+      data_ani[i] <- list(move(x=indi_subset[[i]]$lon,y=indi_subset[[i]]$lat,
+                                  time=indi_subset[[i]]$dt,
+                                  proj=CRS("+proj=longlat +ellps=WGS84"),
+                                  animal=indi_levels[i]))}
+ }
> 
> #Find command or directory to convert tool of ImageMagick
> conv_dir <- get_imconvert()
[1] "Downloading portable ImageMagick..."
Error in function (type, msg, asError = TRUE)  : 
  Failed to connect to ftp.imagemagick.org port 21: Timed out
Calls: get_imconvert ... getURL -> curlPerform -> .Call -> <Anonymous> -> fun
Execution halted