source("d:/fv.r") # 関数の読込：関数を保存した場所を指定する
df <- std2df("D:/VegSample.txt") # 標準互換テキストを読み込んで表計算形式に変換
write.table(df$st, file="D:/st.txt", quote=F, sep="\t", row.names=F) # 地点関連データの出力
write.table(df$comp, file="D:/comp.txt", quote=F, sep="\t", row.names=F) # 組成関連データの出力
std <- df2std("D:/") # 表計算形式のデータを読み込んで標準互換テキストに変換
write.table(std, file="D:/std.txt", quote=F, row.names=F, col.names=F) # 標準互換テキストで出力