RでGPS
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
&color(black,#CCFFCC){LINK:[[[GoogleEarthとR]]][[[ShapeFi...
----
目次
#contents
----
*RでGPS&LBS [#x1d7712d]
最近は色々なものにGPS機能が付いてきています。その中には...
またRのmaptoolsでもreadGPS()という関数が利用できるように...
それ意外にも、PlaceEngineというWiFiを用いて位置情報を取...
ここでは、Rで利用可能なGPS関連の情報を集約・活用するこ...
*Cool Applications [#xd5697f2]
SONY GPS-CS1K to Google Earth & Maps converter:~
http://www3.plala.or.jp/takayuki/gps/
*コメント欄 [#i178bfb8]
#comment(below)
- お知らせ>spDistsN1()の引数が逆になっている件は、確認次...
- Cools Applications 追加 -- [[okinawa]] &new{2009-04-20 ...
- EveryTrail, with GPS-CS1K also iPhone! EveryTrailという...
- ローカルのログから直接データを取得する方法 追加。この方...
- ローカルＤＢから直接位置情報を取得する場合（PlaceEngine...
- RとPlaceEngineを用いた位置情報の取得(Mac&Win) 更新。 --...
- RではmaptoolsからreadGPSでGPSbabelを叩けますので、GPXも...
- 最近、ＧＰＸのサポートが増えているような。R はまだかな...
- SONY GPS-CS1KSP新型がでてたのね。 -- [[okinawa]] &new{2...
- ipod touch 2edにgpsが付いてこなかったのは,不幸中の幸い...
- マルチポストですみません。GE(WIN)インストールするとgpsb...
- MacでもGPSbabelとmaptoolsを使ったフォーマット変換ができ...
- そういえば、iPhone3GではGPS機能がつくとのことで、GPSデ...
- いやーひさしぶりの更新ですね。今日の話題は、「ようやくM...
- 「ログから直接位置情報を取得する場合」は結構めんどくさ...
*GPS関連機器＆ツール [#od743e22]
**SONY GPS-CS1K [#k6805e76]
SONYの携帯用GPSログ機器。デジカメのExif情報にGPSログを埋...
CyberShot向けに発売されているが、他機種でも利用可能。GPS...
[[SONY GPS-CS1K:http://www.amazon.co.jp/%E3%82%BD%E3%83%8...
[[SONY GPS-CS1KSP:http://www.amazon.co.jp/%E3%82%BD%E3%83...
**GPSbabel [#kcad8935]
GPSデータの変換を行うツール。非常に高機能。変換フォーマッ...
MacOSX,Win,Linux版あり。maptoolsのreadGPS()はこのアプリと...
[[GPSbabel:http://www.gpsbabel.org/index.html]]~
**PlaceEngine [#b245be77]
ソニーと東京大学が共同で研究している新技術。ちまたにあふ...
[[PlaceEngineHomePage:http://www.placeengine.com/]]~
[[PlaceEngineAPI:http://www.placeengine.com/doc/tutl]]~
*SONY GPS-CS1KからmaptoolsのreadGPS()を使ってデータを取得...
実はmaptoolsの関数を調べていたら、readGPS()というものがあ...
これはなんだ？と調べていくうちに、この関数がGPSからデータ...
ただ、GPS機器は結構高いのでどうしたものかと思っていたが、...
（我が財務省の許可を得るためにも家族サービスにも応用でき...
~
~
対応状況:~
(1)MacOSX10.5.3 O 正常にマウントされるようになりました。~
(2)Ubuntu7.10(IntelMac) O~
(3)WindowsXPSP2 O~
(4)VMwareFusion&Windows2000 X~
(5)VMwareFusion&Ubuntu7.10 O~
~
~
**WinXPSP2の場合 [#fb7bd122]
事前準備~
(1)Rにmaptoolsパッケージをインストール~
(2)GPS-CS1Kを作動させ、ログを取っておく~
(3)GPSbabel-1.3.4をC:\Program Files\直下にインストール~
(4)GPSbabelまでのpathを設定（環境変数のPATH内に"C:\Progra...
(5)必要ならばGoogleEarthを入れておく~
~
GPS-CS1Kに付属のUSBケーブルをさして、PCにつなぐ。すると...
それを開くと[GPS]フォルダがありその中にWG****.logファイ...
ここではF:ドライブにマウントされたことにして話を進める。~
> library(maptools)
要求されたパッケージ foreign をロード中です
要求されたパッケージ sp をロード中です
> readGPS(i="nmea",f="F:/GPS/WG20080108112159.log")
V1 V2 V3 V4 V5 V6 ...
1 0 NA 26.25103 127.7356 1927274074 1075960148 26.2510...
2 1 NA 26.25172 127.7348 1927268244 1075966146 26.2517...
3 2 NA 26.25198 127.7348 1927266091 1075966607 26.2519...
4 3 NA 26.25204 127.7347 1927265602 1075966915 26.2520...
5 4 NA 26.25210 127.7347 1927265084 1075967362 26.2520...
6 5 NA 26.25210 127.7347 1927265070 1075967404 26.2521...
<中略>
V9 V10 V11 V12 V13 V1...
1 N26.251027 E127.735555 N E 0.000000F 0.000000...
2 N26.251722 E127.734840 N E 0.000000F 0.000000...
3 N26.251978 E127.734785 N E 0.000000F 0.000000...
4 N26.252037 E127.734748 N E 0.000000F 0.000000...
5 N26.252098 E127.734695 N E 0.000000F 0.000000...
6 N26.252100 E127.734690 N E 0.000000F 0.000000...
<中略>
V17 V18 V19 V20 V21 V22 V23 ...
1 0 0 Unknown Unknown 0.000000 0.000000 20080108 19...
2 0 0 Unknown Unknown 0.065411 0.105268 20080108 19...
3 0 0 Unknown Unknown 0.083489 0.134363 20080108 19...
4 0 0 Unknown Unknown 0.088121 0.141817 20080108 19...
5 0 0 Unknown Unknown 0.093520 0.150505 20080108 19...
6 0 0 Unknown Unknown 0.093850 0.151038 20080108 19...
<中略>
64 0 0 Unknown Unknown 1.203728 1.937212 20080108 19...
65 0 0 Unknown Unknown 1.211737 1.950102 20080108 19...
66 0 0 Unknown Unknown 1.220836 1.964745 20080108 19...
67 0 0 Unknown Unknown 1.268393 2.041281 20080108 19...
68 0 0 Unknown Unknown 1.279296 2.058828 20080108 19...
69 0 0 Unknown Unknown 1.286990 2.071210 20080108 19...
nmeaは米国海洋電子機器協会(National Marine Electronics ...
readGPSの中身ですが、
> readGPS
function (i = "garmin", f = "usb:", type = "w", invisibl...
{
if (.Platform$OS.type == "windows")
gpsdata <- system(paste("gpsbabel -", type, " -i ...
" -f ", f, " -o tabsep -F -", sep = ""), inte...
invisible = invisible)
else gpsdata <- system(paste("gpsbabel -", type, " -i...
i, " -f ", f, " -o tabsep -F -", sep = ""), inter...
if (any(grep("Can't init", gpsdata)))
stop("Cannot read GPS: check connexion")
gpsdf <- read.table(con <- textConnection(gpsdata), f...
close(con)
gpsdf
}
<environment: namespace:maptools>
となっており、とりたててたいしたことをしているわけでは...
なので例えば、~
> system("gpsbabel -i nmea -f F:/GPS/WG20080108112159.lo...
とすると、ログデータがKMLに変換されて出力されます。~
GoogleEarthで起動すると、~
#ref(output.kml)
#ref(WG20080108112159.log)
#ref(RでGPS/GPS1.jpg,50%)
こんな感じになります。（わたしのお散歩コースです）~
＊＊＊(注）以下の距離計算の記事には大きな間違いがあります...
また、Rに取り込んだログデータの緯度・経度情報（V3,V4)から...
library(maptools)
library(sp)
x<-readGPS(i="nmea",f="F:/GPS/WG20080108112159.log")
number<-nrow(x)-1
distance<-0
for (i in 1:number){
ll<-matrix(c(x$V3[i],x$V3[i+1],x$V4[i],x$V4[i+1]),ncol=2)
km <- spDistsN1(ll, ll[1,], longlat=TRUE)
distance<-sum(zapsmall(km))+distance
#print(distance)
}
distance #km
distance/0.0004#1歩40cm
> library(maptools)
> library(sp)
> x<-readGPS(i="nmea",f="F:/GPS/WG20080108112159.log")
> number<-nrow(x)-1
> distance<-0
> for (i in 1:number){
+ ll<-matrix(c(x$V3[i],x$V3[i+1],x$V4[i],x$V4[i+1]),ncol...
+ km <- spDistsN1(ll, ll[1,], longlat=TRUE)
+ distance<-sum(zapsmall(km))+distance
+ #print(distance)
+ }
> distance #km
[1] 1.760347
> distance/0.0004#1歩40cm
[1] 4400.866
4400歩くらい歩いてますね。~
また、距離に体重のデータを組合わせると簡易に消費カロリー...
#消費カロリー（kcal）＝体重（kg）×距離（km）×0.8
weight<-70
(cal<-weight*distance*0.8)
[1] 98.5794
うわ〜。100kcalしか消費してない。~
*RとPlaceEngineを用いた位置情報の取得(Mac&Win) [#x71b8f44]
事前準備~
（１）無線LAN機能のついたMac/PCを用意（USB等の外付けでも...
（２）PlaceEngineクライアントをダウンロードしてインストー...
（３）RおよびPlaceEngineを起動させる~
~
解説~
PlaceEngineクライアントは単体でWebServerの機能を持って...
また、設定で定時的な位置情報の取得が可能で、ログも保存...
(Macでは/ユーザ/username/ライブラリ/PlaceEngine内にpelo...
**PlaceEngineクライアントの確認 [#eb252a3d]
param<-"http://localhost:5448/ackjs?"
savefile<-"/placedata.txt"
download.file(param,savefile)
でMacintoshHD直下にplacedata.txtが落ちてくる。この中身は
ackRTAG("o070531","");
と出力される。~
データをとりだすだけだと~
param<-"http://localhost:5448/ackjs?"
readLines(param)
[1] "ackRTAG(\"o070531\",\"\");"
となる。~
**WiFi電測 [#rf3ea275]
param<-"http://localhost:5448/rtagjs?"
savefile<-"/placedata.txt"
download.file(param,savefile)
実行するとPlaceEngineが起動し電測が開始される。電測され...
recvRTAG("tZhvkNzOacKIYwNkaZvQwlWZunW3L7meIJi5eSUBoig0wt...
AoxX0bQqk99LaPGtuZVr9SqC2iU2EgUM3fXDAhUijOrnIBanIFtFXPSQ...
SPT8F7e7qcIQ1YkhiEhQRexECOJvy1nGYuJskV5K4An1-ZToch-Ep-ME...
TNpvUGYR4ZzbV7dTmoJPA00D2hXFSx0o3f9YF5mXMgCzdi6sOb4cjZuO...
ar7Yr8ysir3EMuK6.HC9JEfksYFv-TcMdwSS4aDSuHH33dS6ERt0z2-4...
2,1200464672);
こんな感じ。~
データを取り出すだけだと、~
param<-"http://localhost:5448/rtagjs?"
readLines(param)
[1] "recvRTAG(\"cGPyyK1TqPdx-SXpDYhdduTjXv9t7AZCkrqMmlS....
FoW514MCZkp2ECjjw1wQYGNbj8khK.Y.EEimQeIN7jKu9QIKbC1YhpEV...
QO9JFV5xt87V4gpW.kuyGDeXxJONJjHYggBQq0atqECs2h5pSdjwatD2...
qfhtmqIMTK4UdzWNNn7YZrRhPPZFYPEvVRH78PRh4ScvUjVK-m9GEQmW...
0lOFUug9od9WhJQYsn49XopAu.gKAYjJkDE3.GnKuQ084Xw**\",5,12...
となる。~
**PlaceEngineServerへの接続して位置情報を取得 [#u131dd5b]
さて、電測で得られたRTAGデータをPlaceEngineServerへ投げ...
param<-"http://localhost:5448/rtagjs?"
densoku<-readLines(param)
densoku2<-strsplit(densoku,'\"')
rtag<-densoku2[[1]][2]
time<-as.numeric(unlist(strsplit(strsplit(densoku2[[1]][...
server<-"http://www.placeengine.com/api/loc?"
key<-"ovTwwQNZMyrNCXc1IjA2wzz-cJ4TcENVgn60nn-a.RbmHDXknP...
param2<-paste(server,"t=",time,"&rtag=",rtag,"&appk=",ke...
(placedata<-readLines(param2,encoding="UTF-8"))#Macの場...
[1] "recvLoc(127.678157,26.215759,11,{'addr':'沖縄県那覇...
位置情報が取得できた。~
~
（注）keyは個別に登録してもらっておくこと。~
**ローカルから直接位置情報を取得する場合（PlaceEngineServ...
これはローカルＤＢから位置情報を取得する方法である。~
***PlaceEngineクライアントインタフェース (LocalDB機能) [#...
param<-"http://localhost:5448/listdb"
readLines(param)
> param<-"http://localhost:5448/listdb"
> readLines(param)
[1] "[\"all\",\"tokyo\"]"
***ローカルDBから情報取得 [#g8e35da0]
server<-"http://localhost:5448/locdb?"
key<-"jcRc542S3ofz-ONSVPkH8vsf4y4m1SpOhKjvYEYM4TL1R0GpZx...
param<-paste(server,"t=","&appk=",key,sep="")
(placedata<-readLines(param,encoding="UTF-8"))
> server<-"http://localhost:5448/locdb?"
> key<-"jcRc542S3ofz-ONSVPkH8vsf4y4m1SpOhKjvYEYM4TL1R0Gp...
> param<-paste(server,"t=","&appk=",key,sep="")
> (placedata<-readLines(param,encoding="UTF-8"))
[1] "[127.67804145813,26.2157935649157,0,{}]"
Warning message:
In readLines(param, encoding = "UTF-8") :
'http://localhost:5448/locdb?t=&appk=ovTwwQNZMyrNCXc1I...
この機能はPlaceEngineクライアントw070606,m070606,o080131...
LocalDBによる位置推定は、単純に緯度経度のみを求めるもので...
（１）住所~
（２）フロア情報~
（３）推定精度~
（４）推定に利用されたアクセスポイント数 ~
LocalDBによる位置推定は、ローカルアプリケーションからのみ...
Webアプリケーションでは従来通り PlaceEngineサーバーの機能...
***ローカルのログから直接データを取得する方法 [#l676900f]
(1)C:\Documents and Settings\****\My Documents\PlaceEngine~
内にpelog_2008-00-00.txtとdblog_2008-00-00.txtが貯まって...
x<-scan("C:/Documents and Settings/****/My Documents/Pla...
y<-ifelse(match(substr(x,1,1),"[")==1,x)
z<-as.vector(na.omit(y))
z2<-gsub("[]'addr':'msg位置が取得できましたfloorｔ]","",...
read.csv(textConnection(z2),header=F)
V1 V2 V3 V4 V5 V6 ...
1 127.6780 26.21579 1 沖縄県那覇市久米二丁目 NA 8F 12...
2 127.6780 26.21579 1 沖縄県那覇市久米二丁目 NA 8F 12...
3 127.6780 26.21579 1 沖縄県那覇市久米二丁目 NA 8F 12...
4 127.6780 26.21579 1 沖縄県那覇市久米二丁目 NA 8F 12...
これで取り込めた。~
*アクセス数： [#ne674066]
&counter;
人~
[[okinawa]]です。このページは書きかけです。順次整備します...
終了行:
&color(black,#CCFFCC){LINK:[[[GoogleEarthとR]]][[[ShapeFi...
----
目次
#contents
----
*RでGPS&LBS [#x1d7712d]
最近は色々なものにGPS機能が付いてきています。その中には...
またRのmaptoolsでもreadGPS()という関数が利用できるように...
それ意外にも、PlaceEngineというWiFiを用いて位置情報を取...
ここでは、Rで利用可能なGPS関連の情報を集約・活用するこ...
*Cool Applications [#xd5697f2]
SONY GPS-CS1K to Google Earth & Maps converter:~
http://www3.plala.or.jp/takayuki/gps/
*コメント欄 [#i178bfb8]
#comment(below)
- お知らせ>spDistsN1()の引数が逆になっている件は、確認次...
- Cools Applications 追加 -- [[okinawa]] &new{2009-04-20 ...
- EveryTrail, with GPS-CS1K also iPhone! EveryTrailという...
- ローカルのログから直接データを取得する方法 追加。この方...
- ローカルＤＢから直接位置情報を取得する場合（PlaceEngine...
- RとPlaceEngineを用いた位置情報の取得(Mac&Win) 更新。 --...
- RではmaptoolsからreadGPSでGPSbabelを叩けますので、GPXも...
- 最近、ＧＰＸのサポートが増えているような。R はまだかな...
- SONY GPS-CS1KSP新型がでてたのね。 -- [[okinawa]] &new{2...
- ipod touch 2edにgpsが付いてこなかったのは,不幸中の幸い...
- マルチポストですみません。GE(WIN)インストールするとgpsb...
- MacでもGPSbabelとmaptoolsを使ったフォーマット変換ができ...
- そういえば、iPhone3GではGPS機能がつくとのことで、GPSデ...
- いやーひさしぶりの更新ですね。今日の話題は、「ようやくM...
- 「ログから直接位置情報を取得する場合」は結構めんどくさ...
*GPS関連機器＆ツール [#od743e22]
**SONY GPS-CS1K [#k6805e76]
SONYの携帯用GPSログ機器。デジカメのExif情報にGPSログを埋...
CyberShot向けに発売されているが、他機種でも利用可能。GPS...
[[SONY GPS-CS1K:http://www.amazon.co.jp/%E3%82%BD%E3%83%8...
[[SONY GPS-CS1KSP:http://www.amazon.co.jp/%E3%82%BD%E3%83...
**GPSbabel [#kcad8935]
GPSデータの変換を行うツール。非常に高機能。変換フォーマッ...
MacOSX,Win,Linux版あり。maptoolsのreadGPS()はこのアプリと...
[[GPSbabel:http://www.gpsbabel.org/index.html]]~
**PlaceEngine [#b245be77]
ソニーと東京大学が共同で研究している新技術。ちまたにあふ...
[[PlaceEngineHomePage:http://www.placeengine.com/]]~
[[PlaceEngineAPI:http://www.placeengine.com/doc/tutl]]~
*SONY GPS-CS1KからmaptoolsのreadGPS()を使ってデータを取得...
実はmaptoolsの関数を調べていたら、readGPS()というものがあ...
これはなんだ？と調べていくうちに、この関数がGPSからデータ...
ただ、GPS機器は結構高いのでどうしたものかと思っていたが、...
（我が財務省の許可を得るためにも家族サービスにも応用でき...
~
~
対応状況:~
(1)MacOSX10.5.3 O 正常にマウントされるようになりました。~
(2)Ubuntu7.10(IntelMac) O~
(3)WindowsXPSP2 O~
(4)VMwareFusion&Windows2000 X~
(5)VMwareFusion&Ubuntu7.10 O~
~
~
**WinXPSP2の場合 [#fb7bd122]
事前準備~
(1)Rにmaptoolsパッケージをインストール~
(2)GPS-CS1Kを作動させ、ログを取っておく~
(3)GPSbabel-1.3.4をC:\Program Files\直下にインストール~
(4)GPSbabelまでのpathを設定（環境変数のPATH内に"C:\Progra...
(5)必要ならばGoogleEarthを入れておく~
~
GPS-CS1Kに付属のUSBケーブルをさして、PCにつなぐ。すると...
それを開くと[GPS]フォルダがありその中にWG****.logファイ...
ここではF:ドライブにマウントされたことにして話を進める。~
> library(maptools)
要求されたパッケージ foreign をロード中です
要求されたパッケージ sp をロード中です
> readGPS(i="nmea",f="F:/GPS/WG20080108112159.log")
V1 V2 V3 V4 V5 V6 ...
1 0 NA 26.25103 127.7356 1927274074 1075960148 26.2510...
2 1 NA 26.25172 127.7348 1927268244 1075966146 26.2517...
3 2 NA 26.25198 127.7348 1927266091 1075966607 26.2519...
4 3 NA 26.25204 127.7347 1927265602 1075966915 26.2520...
5 4 NA 26.25210 127.7347 1927265084 1075967362 26.2520...
6 5 NA 26.25210 127.7347 1927265070 1075967404 26.2521...
<中略>
V9 V10 V11 V12 V13 V1...
1 N26.251027 E127.735555 N E 0.000000F 0.000000...
2 N26.251722 E127.734840 N E 0.000000F 0.000000...
3 N26.251978 E127.734785 N E 0.000000F 0.000000...
4 N26.252037 E127.734748 N E 0.000000F 0.000000...
5 N26.252098 E127.734695 N E 0.000000F 0.000000...
6 N26.252100 E127.734690 N E 0.000000F 0.000000...
<中略>
V17 V18 V19 V20 V21 V22 V23 ...
1 0 0 Unknown Unknown 0.000000 0.000000 20080108 19...
2 0 0 Unknown Unknown 0.065411 0.105268 20080108 19...
3 0 0 Unknown Unknown 0.083489 0.134363 20080108 19...
4 0 0 Unknown Unknown 0.088121 0.141817 20080108 19...
5 0 0 Unknown Unknown 0.093520 0.150505 20080108 19...
6 0 0 Unknown Unknown 0.093850 0.151038 20080108 19...
<中略>
64 0 0 Unknown Unknown 1.203728 1.937212 20080108 19...
65 0 0 Unknown Unknown 1.211737 1.950102 20080108 19...
66 0 0 Unknown Unknown 1.220836 1.964745 20080108 19...
67 0 0 Unknown Unknown 1.268393 2.041281 20080108 19...
68 0 0 Unknown Unknown 1.279296 2.058828 20080108 19...
69 0 0 Unknown Unknown 1.286990 2.071210 20080108 19...
nmeaは米国海洋電子機器協会(National Marine Electronics ...
readGPSの中身ですが、
> readGPS
function (i = "garmin", f = "usb:", type = "w", invisibl...
{
if (.Platform$OS.type == "windows")
gpsdata <- system(paste("gpsbabel -", type, " -i ...
" -f ", f, " -o tabsep -F -", sep = ""), inte...
invisible = invisible)
else gpsdata <- system(paste("gpsbabel -", type, " -i...
i, " -f ", f, " -o tabsep -F -", sep = ""), inter...
if (any(grep("Can't init", gpsdata)))
stop("Cannot read GPS: check connexion")
gpsdf <- read.table(con <- textConnection(gpsdata), f...
close(con)
gpsdf
}
<environment: namespace:maptools>
となっており、とりたててたいしたことをしているわけでは...
なので例えば、~
> system("gpsbabel -i nmea -f F:/GPS/WG20080108112159.lo...
とすると、ログデータがKMLに変換されて出力されます。~
GoogleEarthで起動すると、~
#ref(output.kml)
#ref(WG20080108112159.log)
#ref(RでGPS/GPS1.jpg,50%)
こんな感じになります。（わたしのお散歩コースです）~
＊＊＊(注）以下の距離計算の記事には大きな間違いがあります...
また、Rに取り込んだログデータの緯度・経度情報（V3,V4)から...
library(maptools)
library(sp)
x<-readGPS(i="nmea",f="F:/GPS/WG20080108112159.log")
number<-nrow(x)-1
distance<-0
for (i in 1:number){
ll<-matrix(c(x$V3[i],x$V3[i+1],x$V4[i],x$V4[i+1]),ncol=2)
km <- spDistsN1(ll, ll[1,], longlat=TRUE)
distance<-sum(zapsmall(km))+distance
#print(distance)
}
distance #km
distance/0.0004#1歩40cm
> library(maptools)
> library(sp)
> x<-readGPS(i="nmea",f="F:/GPS/WG20080108112159.log")
> number<-nrow(x)-1
> distance<-0
> for (i in 1:number){
+ ll<-matrix(c(x$V3[i],x$V3[i+1],x$V4[i],x$V4[i+1]),ncol...
+ km <- spDistsN1(ll, ll[1,], longlat=TRUE)
+ distance<-sum(zapsmall(km))+distance
+ #print(distance)
+ }
> distance #km
[1] 1.760347
> distance/0.0004#1歩40cm
[1] 4400.866
4400歩くらい歩いてますね。~
また、距離に体重のデータを組合わせると簡易に消費カロリー...
#消費カロリー（kcal）＝体重（kg）×距離（km）×0.8
weight<-70
(cal<-weight*distance*0.8)
[1] 98.5794
うわ〜。100kcalしか消費してない。~
*RとPlaceEngineを用いた位置情報の取得(Mac&Win) [#x71b8f44]
事前準備~
（１）無線LAN機能のついたMac/PCを用意（USB等の外付けでも...
（２）PlaceEngineクライアントをダウンロードしてインストー...
（３）RおよびPlaceEngineを起動させる~
~
解説~
PlaceEngineクライアントは単体でWebServerの機能を持って...
また、設定で定時的な位置情報の取得が可能で、ログも保存...
(Macでは/ユーザ/username/ライブラリ/PlaceEngine内にpelo...
**PlaceEngineクライアントの確認 [#eb252a3d]
param<-"http://localhost:5448/ackjs?"
savefile<-"/placedata.txt"
download.file(param,savefile)
でMacintoshHD直下にplacedata.txtが落ちてくる。この中身は
ackRTAG("o070531","");
と出力される。~
データをとりだすだけだと~
param<-"http://localhost:5448/ackjs?"
readLines(param)
[1] "ackRTAG(\"o070531\",\"\");"
となる。~
**WiFi電測 [#rf3ea275]
param<-"http://localhost:5448/rtagjs?"
savefile<-"/placedata.txt"
download.file(param,savefile)
実行するとPlaceEngineが起動し電測が開始される。電測され...
recvRTAG("tZhvkNzOacKIYwNkaZvQwlWZunW3L7meIJi5eSUBoig0wt...
AoxX0bQqk99LaPGtuZVr9SqC2iU2EgUM3fXDAhUijOrnIBanIFtFXPSQ...
SPT8F7e7qcIQ1YkhiEhQRexECOJvy1nGYuJskV5K4An1-ZToch-Ep-ME...
TNpvUGYR4ZzbV7dTmoJPA00D2hXFSx0o3f9YF5mXMgCzdi6sOb4cjZuO...
ar7Yr8ysir3EMuK6.HC9JEfksYFv-TcMdwSS4aDSuHH33dS6ERt0z2-4...
2,1200464672);
こんな感じ。~
データを取り出すだけだと、~
param<-"http://localhost:5448/rtagjs?"
readLines(param)
[1] "recvRTAG(\"cGPyyK1TqPdx-SXpDYhdduTjXv9t7AZCkrqMmlS....
FoW514MCZkp2ECjjw1wQYGNbj8khK.Y.EEimQeIN7jKu9QIKbC1YhpEV...
QO9JFV5xt87V4gpW.kuyGDeXxJONJjHYggBQq0atqECs2h5pSdjwatD2...
qfhtmqIMTK4UdzWNNn7YZrRhPPZFYPEvVRH78PRh4ScvUjVK-m9GEQmW...
0lOFUug9od9WhJQYsn49XopAu.gKAYjJkDE3.GnKuQ084Xw**\",5,12...
となる。~
**PlaceEngineServerへの接続して位置情報を取得 [#u131dd5b]
さて、電測で得られたRTAGデータをPlaceEngineServerへ投げ...
param<-"http://localhost:5448/rtagjs?"
densoku<-readLines(param)
densoku2<-strsplit(densoku,'\"')
rtag<-densoku2[[1]][2]
time<-as.numeric(unlist(strsplit(strsplit(densoku2[[1]][...
server<-"http://www.placeengine.com/api/loc?"
key<-"ovTwwQNZMyrNCXc1IjA2wzz-cJ4TcENVgn60nn-a.RbmHDXknP...
param2<-paste(server,"t=",time,"&rtag=",rtag,"&appk=",ke...
(placedata<-readLines(param2,encoding="UTF-8"))#Macの場...
[1] "recvLoc(127.678157,26.215759,11,{'addr':'沖縄県那覇...
位置情報が取得できた。~
~
（注）keyは個別に登録してもらっておくこと。~
**ローカルから直接位置情報を取得する場合（PlaceEngineServ...
これはローカルＤＢから位置情報を取得する方法である。~
***PlaceEngineクライアントインタフェース (LocalDB機能) [#...
param<-"http://localhost:5448/listdb"
readLines(param)
> param<-"http://localhost:5448/listdb"
> readLines(param)
[1] "[\"all\",\"tokyo\"]"
***ローカルDBから情報取得 [#g8e35da0]
server<-"http://localhost:5448/locdb?"
key<-"jcRc542S3ofz-ONSVPkH8vsf4y4m1SpOhKjvYEYM4TL1R0GpZx...
param<-paste(server,"t=","&appk=",key,sep="")
(placedata<-readLines(param,encoding="UTF-8"))
> server<-"http://localhost:5448/locdb?"
> key<-"jcRc542S3ofz-ONSVPkH8vsf4y4m1SpOhKjvYEYM4TL1R0Gp...
> param<-paste(server,"t=","&appk=",key,sep="")
> (placedata<-readLines(param,encoding="UTF-8"))
[1] "[127.67804145813,26.2157935649157,0,{}]"
Warning message:
In readLines(param, encoding = "UTF-8") :
'http://localhost:5448/locdb?t=&appk=ovTwwQNZMyrNCXc1I...
この機能はPlaceEngineクライアントw070606,m070606,o080131...
LocalDBによる位置推定は、単純に緯度経度のみを求めるもので...
（１）住所~
（２）フロア情報~
（３）推定精度~
（４）推定に利用されたアクセスポイント数 ~
LocalDBによる位置推定は、ローカルアプリケーションからのみ...
Webアプリケーションでは従来通り PlaceEngineサーバーの機能...
***ローカルのログから直接データを取得する方法 [#l676900f]
(1)C:\Documents and Settings\****\My Documents\PlaceEngine~
内にpelog_2008-00-00.txtとdblog_2008-00-00.txtが貯まって...
x<-scan("C:/Documents and Settings/****/My Documents/Pla...
y<-ifelse(match(substr(x,1,1),"[")==1,x)
z<-as.vector(na.omit(y))
z2<-gsub("[]'addr':'msg位置が取得できましたfloorｔ]","",...
read.csv(textConnection(z2),header=F)
V1 V2 V3 V4 V5 V6 ...
1 127.6780 26.21579 1 沖縄県那覇市久米二丁目 NA 8F 12...
2 127.6780 26.21579 1 沖縄県那覇市久米二丁目 NA 8F 12...
3 127.6780 26.21579 1 沖縄県那覇市久米二丁目 NA 8F 12...
4 127.6780 26.21579 1 沖縄県那覇市久米二丁目 NA 8F 12...
これで取り込めた。~
*アクセス数： [#ne674066]
&counter;
人~
[[okinawa]]です。このページは書きかけです。順次整備します...
ページ名:
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
