/* package whatever; // don't place package name! */
 
TICKET<-read.csv("C:/Users/user/Desktop/票價.csv",header = F)
#輸入資料,資料第一直欄為各車站中文站名,第二直欄為距離基隆站公里數
Price<-function(from,to,yoyo){ #指定起站,迄站,是否使用悠遊卡
  if(yoyo==T){#使用悠遊卡時
 
    x<-regexpr("from",TICKET[,1])#搜尋起站符合FROM資料集列數
    y<-regexpr("to",TICKET[,1])#搜尋迄站符合TO資料集列數
    z<-abs(TICKET$V2[x==1]-TICKET$V2[y==1])#計算兩站距離取絕對值
    p<-round((z-70)*2.27+70*2.27*0.9,1)#使用悠遊卡前70公里9折,其餘公里原價
 
  }
  else{#不使用悠遊卡狀態
 
    x<-regexpr("from",TICKET[,1])
    y<-regexpr("to",TICKET[,1])
    z<-abs(TICKET$V2[x==1]-TICKET$V2[y==1])
    p<-round(z*2.27,1)
 
  }
  print(p)
}
 
 

LyogcGFja2FnZSB3aGF0ZXZlcjsgLy8gZG9uJ3QgcGxhY2UgcGFja2FnZSBuYW1lISAqLwoKVElDS0VUPC1yZWFkLmNzdigiQzovVXNlcnMvdXNlci9EZXNrdG9wL+elqOWDuS5jc3YiLGhlYWRlciA9IEYpCiPovLjlhaXos4fmlpks6LOH5paZ56ys5LiA55u05qyE54K65ZCE6LuK56uZ5Lit5paH56uZ5ZCNLOesrOS6jOebtOashOeCuui3nembouWfuumahuermeWFrOmHjOaVuApQcmljZTwtZnVuY3Rpb24oZnJvbSx0byx5b3lvKXsgI+aMh+Wumui1t+ermSzov4Tnq5ks5piv5ZCm5L2/55So5oKg6YGK5Y2hCiAgaWYoeW95bz09VCl7I+S9v+eUqOaCoOmBiuWNoeaZggogICAKICAgIHg8LXJlZ2V4cHIoImZyb20iLFRJQ0tFVFssMV0pI+aQnOWwi+i1t+ermeespuWQiEZST03os4fmlpnpm4bliJfmlbgKICAgIHk8LXJlZ2V4cHIoInRvIixUSUNLRVRbLDFdKSPmkJzlsIvov4Tnq5nnrKblkIhUT+izh+aWmembhuWIl+aVuAogICAgejwtYWJzKFRJQ0tFVCRWMlt4PT0xXS1USUNLRVQkVjJbeT09MV0pI+ioiOeul+WFqeermei3nembouWPlue1leWwjeWAvAogICAgcDwtcm91bmQoKHotNzApKjIuMjcrNzAqMi4yNyowLjksMSkj5L2/55So5oKg6YGK5Y2h5YmNNzDlhazph4w55oqYLOWFtumkmOWFrOmHjOWOn+WDuQogICAKICB9CiAgZWxzZXsj5LiN5L2/55So5oKg6YGK5Y2h54uA5oWLCiAgICAKICAgIHg8LXJlZ2V4cHIoImZyb20iLFRJQ0tFVFssMV0pCiAgICB5PC1yZWdleHByKCJ0byIsVElDS0VUWywxXSkKICAgIHo8LWFicyhUSUNLRVQkVjJbeD09MV0tVElDS0VUJFYyW3k9PTFdKQogICAgcDwtcm91bmQoeioyLjI3LDEpCiAgIAogIH0KICBwcmludChwKQp9Cgo=